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ABSTRACT 


This  paper  is  a  report  on  an  interactive  production  control  training, 
model  for  a  Naval  Air  Rework  Facility  (NARF)  Shop.  The  system  is  an  inter¬ 
active  shop  simulator  which  allows  production  control  decisions  to  be  made 
by  the  user.  The  objective  is  to  provide  a  training  vehicle  for  production 
control  decision  making.  The  report  includes  a  "users'  manual"  and  program 
listing. 
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t.  IN  I  koiiitr  1  nir) 

Ihp  No%'?1  Air  Rewo^^  F'scilits;  <  NAKT  )  st  JnrF  ?  ijri'/ 1 1  I  e  N'-'' 

Mir  Sti?tiori  is  sn  industrial  riant  with  initip  pmr  1  o'-'pp'^  . 

Tt  15  onp  of  si;:  siniiliar  NARP '  s  locate’d  in  <Iip  Unitpd  Statos. 

Top  iTisnaspnipnt  officials  are  Naval  officers  and  the  refiirindcT 
SIS'  I  i'  lliens,  Ihe  ci^•^liarl  wcul'.  force  includes  ensiripprsi 
rlsnners*  <t- dmi  ri  i  st  rat  or  s  »  and  mechanics  r-ee  resent  i  ns  over  4'i 
different  riishTw  skillec'i  trades. 

li.e  NAR'R  IT.  lesion  includes  ms  i  ntensnce  eriSi  nee  rind  arid  hes  .  ■ 
'.iprot)  ms  i  n+ enence  of  niilitsry  seronautical  items  randins  fro:, 
i'emrletp  Eircrsft.  to  sr-are  c  ompocient  s .  Rv;  policyr  NAR'R 
m  - 1 nt pnsnce  on  all  items  is  a  splective  process  which  involves 
.•iisdnoais  of  i  to-m  conditiont  ued.^ticis  with  latest  reouired 
h-nsesf  and  liirrited  ma  i  ritenanc  r  rework  to  recoriiditiori  the  itpn. 
for  srotiier  reriod  of  service. 

The  NARF  is  ors.snized  by  support  ser  vices  (  Fndi nee r  i nS  r 
Omp  1  1  tv;  Assurencer  F'lanninSr  etc.  Tend  the  Production  tippartmpr.+  , 
The  F'roriijct  ioci  Department »  with  s.ome  2/3  of  the  civilian 
worters*  is  made  up  of  over  100  diTferont  shops.  These  shoes* 
tl,.  bard'i’-re  rroduririd  elempcit'^  of  the  plant*  are  orsanized! 

-on.e  'ca  r-io.'uct  (radio  shop)»  some  bs  process  (clesnind  shoe)* 
and  some  by  function  (  assembl  y  >  .  The  shops  form  ari  int  errelsto'. 
network  thmudh  which  products  flow  as  the  ma  i  rr  tenance  r-rore  =  s 
r  -  O'*  eeds  . 

The  NARF  product  workload  consists  of  about  50X  aircraft. 

Ihe  <;.ircraft  are  eiiamined  (di  adnosed )  »  and  disassembled  as 
reouired  to  permit  shop  component  processing.  As  a  matter  of 
!  roduction  policy*  the  processed  components  are  used  to 
reassemble  the  aircT.ift*  which  is  then  flight  tested.  About  15% 
of  the  NART  workload  consists  of  aircraft  engines  (which  enter 
the  plant  as  such)  arid  sire  overhauled  and  returned  to  the  Naw 
rujT-ply  systeni  foi  issue  and  reuse.  Ainother  15%  of  the  workload 
IS  iTisde  UP  of  miscellaneous  spare  aercnsutical  coi.ponents  which 
have  been  in  use  and  are  sent  to  NART  for  reouired  maintenance. 
After  being  reconditioned  by  NART*  these  are  returned  to  the 
Navy  supply  s'astem  for  reissue  .arid  reuse.  The  remainirig  20%  of 
NARF  workload  is  of  a  miscellaneous  nature  including  such 
uriplanned  items  as  aircraft  repair  (repair  of  damaged  aircraft)* 
riptomer  service  i”  on  demarid)*  and  field  modification. 

II.  IHF  NARF  SHOPS 

This  paper  deals  with  a  typical  NARF  shop.  Ihe  shops  under 
study  belong  to  a  class  of  shops  which  have  the  following  comnion 
cha  racte  r i st i cs  J 

1)  The  bulk  of  processing  on  iobs  entering  each  such  shop  is 
confined  to  thrrt  shop.  llris  means  that  a  shop  functions 
as  3  repair  station  rather  than  a  di  sasseihbly  t  routing* 
and  reassembly  shop. 

2)  A  shop  of  this  class  is  nianned  by  a  substantial  number 

of  mechanics  whose  interchangeable  skills  make  it  possible 
to  work  on  a  varietv;  oT  Jobs  in  backlog. 

3)  .Jobs  in  these  shoes  havf*  indivifcial  work  coritent  which 
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is  small  relative  to  the  total  load  in  the  shoe.  Since 
work  content  is  small  it  is  also  aeneralla  true  that  a 
sinsfle  worker  at  a  time  processes  each  Job. 

4)  Shops  in  this  class  are  not  hiahly  dependent  on 
eouipment  capacity  as  limiters. 

From  3  production  control  viewPoint»  the  shop  is  comrosed  of 
three  basic  elements?  the  workable  backlod  area,  the 
rionworkable  backloS  area*  and  the  processina  area  (see  Fiaure  1). 

Jobs  arrive  at  the  shop  and  normally  are  entered  into  the 
workable  backloa.  to  await  processina  by  an  available  worl'.er. 

If»  for  some  reason,  a  Job  cannot  be  processed  ’as  is."  it  is 
entered  into  the  nonworkable  backloa.  Usually  Jobs  will  be 
placed  in  the  nonworkable  backloa  because  fo  the  nonavai labi 1 i ty 
of  a  component  part  reouired  for  processina  or  technical  data 
reouired  for  processina.  Once  the  nonavai labi 1 ity  is  satisfied, 
the  Job  returns  to  the  workable  backloa. 

Jobs  move  from  the  workable  backloa  to  the  processina  area 
needed.  Sometimes,  durina  the  initial  disassembly  of  a  Job. 
it  is  determined  that  an  additional  component  part(s)  will  be 
necessary  to  complete  the  Job.  If  the  component  part(s)  is  not 
s'vailable.  the  Job  is  entered  into  the  nonworkable  backloa  (see 
Fiaure  1),  When  processina  is  completed  on  a  Job.  it  leaves  the 

>hOP  . 

Manaaement  has  at  least  two  niethods  by  which  they  can 
e;;ercise  control  over  the  shop  on  a  week  to  week  basis.  First, 
they  can  increase  the  shop  capacity  by  movina  Qualified  workers 
iTito  the  shop  from  other  shops  in  the  NARF .  or  they  can  decrease 
the  shop  capacity  in  the  same  manner.  Second,  they  can  increase 
shop  capacity  by  working  the  oxistins  shop-  manpower  overtime, 
hanasement  control  of  the  shop  is  exercised  with  the  objective 
of  performing  the  mission  of  the  shop,  arid  incurring  the  least 
possible  cost.  rie<?.rly.  these  two  objectives  are  somewhat  in 
conflict.  Conseouent ly .  any  rational  control  policy  is  formed 
h  ■  trading  of  mission  performance  with  cost  of  operation. 

Tlio  use  of  overtime  increases  the  op-ft  sting  cost  cd  the 
■•.■stem.  In  addition  to  an  increased  labor  rate,  overtime  wort- 
u  uelly  15  perform! d  at  a  lower  effidiency  rate  than  that  of 
rtiaisht  time  wort.  It  would  seem  initially  that  iricreasins  the 
hor-  capacity  by  bringing  in  more  workers  would  L'p*  preferable  to 
:  ertime.  but  ttiat  also  results  temporarily  in  incieased  costs 
i  sused  primarily  by  two  factors.  First,  there  is  an 
r! hill  1  ri  1  s t  r a 1 1  ve  cost  for  moving  workers.  Serorid.  arid  niore 
iniportarit.  workers  moved  into  a  shop  take  time  to  learn  their 
and.  conseauerit  1  y .  work  at  a  reduced  rate  for  s  period 
]  .riri.'-d  1  a t,e  1  y  after  assingme  nt  to  the  shoe  (assuming  that  the 
ppil  ci  IS  Qualified,  this  pot  lo.i  of  lowered  efficiency  may  last 
r,e  to  three  wee^s), 

rhe  amount  c.f  worl  in  the  system  is  of  roricerri  to  managenierit  . 

1  h-cklog  levels  may  cause  inefficient  manpower  utilisation. 

It  the  workable  backlog  is  depleted,  the  workers  in  the  shor 
uill  be  idle.  Ariother  possibility  is  that  if  the  workable 
h  rj  li.s  nesrs  depletion,  the  workers'  efficiency  will  decrea'e* 
t reby  resultiris  in  an  application  of  Parkinson's  l  aw.  Ir.  ?ri- 
' 'Tit  the  effect  on  the  system  is  the  same.  Its  effirienry  i 
:  du'  ed  . 

If  backlogs  are  too  large,  management  also  has  reason  tor 
ri'crr..  Large  backlogs  result  in  increased  flow  time  foi  .iiit.- 
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in  the  system  4  If  3  30b  hss  come  from  an  aircraft  beina 
reworked  at  the  NARF  »  an  excessive  delay  of  the  .Job  in  the  shoe 
will  cause  the  erocessinS  of  an  aircraft  to  be  delavedf  This 
will  result  in  a  veal  cost  for  NAKf  .  If  a  Job  is  for  the  Navy 
supely  systems  an  excessive  delay  of  the  Job  will  cause  a 
depletion  of  the  Navy  inventory  which  may  result  iri  the 
sroundinS  of  a  fleet  aircraft#  In  either  C3se»  the  result  vs  a 
reductiori  of  tht'  riuniher  of  operational  aircraft  available  +n  tni- 
Navy  4 

The  shop  model  program  was  written  to  provide  a  hi  ah 
feedback  environment  for  trainins  production  control  r-ersonneJ  # 
Use  of  the  model  should  allow  besinnind  personnel  to  set  a 
better  uriderstarnlinS  of  the  dynamics  of  the  shop# 

1 1 1  4  RROBRAM  STrdJCTURfr: 

In  order  to  discuss  the  internal  structure  of  the  shop  model 
pi'osram  it  is  first  necessary  to  describe  the  ditferrct  paths 
1  tiat  a  .JoLi  can  tal'.e  throu:.h  the  shop  # 

1)  The  job  enters  the  shop  and  is  placed  on  the  workable 
bacl'.los#  It  is  then  worked  on»  completedf  and  leaves 
the  shop# 

2)  The  Job  enters  the  shop  and  is  placed  on  the  nonworkable 
backlos  for  some  non- avai  lahi  I  ity  #  l.ater  when  the 

rion- 3  va  1 1  ab  1 1 1  ty  is  satisfied  the  job  is  placed  on  the 
workable  backlos#  It  is  then  worked  on>  completed > 
and  leaves  the  shop, 

3)  The  job  enters  the  shop  and  is  Placed  on  the  workable 
backloS.  It  IS  then  worked  on  but  not  completed  due 
to  lack  of  parts  or  skills#  The  job  is  Plaed  on  the 
n n n w o r k  a b  1  e  h a c I-  1 1  ;■  b  1 1 1 1 1 :  1  1  he  p a r  t s  or  s k.  1 1 1  s  are 
availablCf  when  it  1.  placed  hack  on  the  workable 
tiackloa.  The  joli  is  iheri  comr- letf-d  and  leaves  the  shop. 

4)  The  joh  enters  tlte  shoe  arid  is  p  laced  on  the  rioriwork.sh  le 
hack.loS.  After  the  necesssi-y  conditions  have  been 

s:- 1  1  s  f  i  eci  it  is  :•  i  ared  on  the  workable  hack  los.  It  1 
t  heri  worked  nn  but  not  complet<-’d  due  to  lack  ot  PBrij; 
or  '-kill'-.  I  lie  j.)b  IS  Placed  on  the  nonwo  i  kab  1  e 
tiacklos.  I  ater  the  job  is  rut  b.icl  on  the  workable 
bscllo'.if  worl  ed  ori*  comPletedT  ariri  1  e.avps  the  shop, 
r-.'^hs  cari  be  seeri  in  the  shop  scliemat  1  c  in  fisure  1.  tei 
V  j  ne- 1  1  c  1 1  •..!  liny  further  reference  to  the  differerit  paths  will  he 
h’  the  numbers  Siven  ahovr^ . 

L'aminaiiori  of  these  paths  reveal  many  similarities#  Ibis 
nfl  e'-  it  possihle  to  write  the  prodram  so  that  the  ,Jobs  esro 
siii'ir-  erj  tosether  on  the  hack  loss  restardles'-  ot  the  route  they 
'  i  eri  . 

I  iie  pro  a  ram  stores  thie  hack  lobs?  everit  list?  and  the  wrul  er  ■ 

;  I  Cifi  a  sirisl.'  linke-i  li-t.  This  reorjires  the  storaSc^  pl  toe 
I  ■ I  I  th"  ijsiM  wisnes  to  input  the  inf'ermat  ion  direct  ly  the 
'  r  ■  >  ■  m  r  a  1.  I  s  -uhroutirie  INF’ll).  (jpti  nn-a  I  1  yr  the  prosaram  cp.  I  L‘ 

1;  ■  r .  .1 1 1  1  ne  Hl'iIA  ti.  inrut  the  information  t  i  oni  a  stored  detr>  file. 
I  I  1  t  he  r  cast'  the  prosram  iiiust  then  call  siihroutine  F'ARAM. 

Tfi  '  '  uh  T  m  1 1  i  rip  fill  i|)=iir.s  t.lie  two  rieede'i  parameters  of  the 

ri.-.'  1.:  -  I  r  i'.  I  e  r  if- 1  tinie  d  1  s 1 1- 1  hut- 1  on  f  rotii  1  tie  siven  niean  -  i  io 
'  t  -  r,.-  -  ;  rl  riev  I  at  i  nfi  . 

n.i'  rr  si.-.ni  ai  fiieve'  ste.ariy  st.ate  onriditions  hy  riinriins  tfn 
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model  for  twenly  weeksC  Pd.  )•  These  weeks  use  3  target 

vslue  deterniined  bv.<  the  riumher  of  mcfi  in  1  he  shoe  at  the  start 
of  the  simulation.  After  the  'hop  ha*^  beeri  initialised  the 
program  outputs  the  current  shn:  status  (  Boo  Arpendi;-:  C  )r  and 
prompts  the  user  for  i  nf  orniai .  jrc  required  for  the  upcominS  weoT  . 

The  information  reouirod  is  the  induction  tar'tot  valuer  amount 
of  overtime*  and  t)ie  riumber  of  workers  t  r  aris  f  e  r  i  1 1  iS  in  or  out  ut 
the  shop.  The  workers'  efficiericu  ratinds  art?  then  updated  for 
the  upcominp  week.  After  sddinsi  or  deleii.ns  workers  the  program 
IS  ready  to  simulate  the  week. 

Jobs  are  gorierated  .and  given  exponent i a  1  1  vf  distributed  Jol> 
^.irr?s  (  pg.  4R  !>  .  A  certain  r  ei  reiit<T(S(.'  of  these  jobs  are  ther. 
pliiced  on  the  nonworkable  backlog  and  the  rest  ori  the  workable 
bscfloS.  When  a  Job  is  Placed  on  the  nonworT able  backlog  the 
program  calls  subroutine  DELAY  to  calculate  the  delay  time.  T;,f- 
delay  time  distribution  is  a  two-stage  general  erlang 
distribution.  The  subroutine  computes  the  rjelay  time  so  that 
the  Job's  event  time  is  not  during  the  night.  When  a  Job  is 
flared  on  the  workable  backlog  the  program  calculates  ten 
percent  of  the  Job  size  and  stores  this  value.  This  enables  tho 
program  to  check  the  Job  after  ten  percent  has  been  completed. 
This  process  continues  until  the  total  amount  of  work  generated 
e:  ceeds  the  target  value. 

The  program  places  an  event  on  the  event  list  to  mark  thc- 
end  of  the  regular  work.  day.  Icile  workers  are  given  jobs  to 
Piumber  on  which  the  first  and  last  enti'ies  of  each  separate  list 
are  located.  Each  entry  must  include  tbie  row  riuiiiber  of  the  rie  * 
entr'g  on  the  list.  The  linked  list  is  composed  of  si;;  seper'g'-' 
vectors.  The  irif ormation  stored  in  t,he  vectors  varies  deperidif'  . 
u;  on  the  particular  l  ist  -tnd  path  the  iob  is  or..  F  or  a  compttUf- 
dose r i p 1 1  uri  of  the  information  stored  m  tlie  vectors  see  pg. 

F V e  r  'J  o P e  r  a t  i  o ri  p e  r  f  o  r m e d  t ' '  •  ♦  ti n. c •  ! c- 1  r  c  o u  1  r  “  s  an  e n t  r  I  ■  ■ 

F.'k.eri  off  a  luo^F  arid  then  ric  ''ii  a  !.  i  s^, .  Ibis  is 

••  “hie'.’ed  bo  sub  1  out  1  ries  lAKE  :  rid  IJi|  i'cppi  ♦  ivel-u  Each  of 
+  subroutines  Entries  are  flu.:.-'-,  t.-'t'eri  .dl  F  Fie  front  of  ■ 

!  '  ■- +  ,  The  subroutirie  niust  be  rss'-f'.-;  ihn  Inr'af.irH,  ru  f,he  fir''-F 
I  I'd  last  entry  on  the  list.  nj. rout  t  tie  1 AF  F  -o  ta  ^  tlsg  wbr  ri 

Urc  last  en  t  rv  sf  a  list  rips  l.ifi-.'i  r  emcivc-d .  A.ri  eui  |'■■J  ma'-:  be 
;■  1  seed  on  the  f  lont*  b-ck  .  or  ncieidlc'  'Ot  s  list  .  t  nt  ries  plficf-"^ 
in  the  mi'idle  of  a  list  so  di  root  I  u  in  f  rorit  of  the  eritry  with 
1  r 'uu  V  M  ue  in  c'ector  t  Mt  N I  .  bubiciutine  F'lM  a  I  su  reouiies  ii- 
l''v“:>tiori  of  first  arid  lest  entrio"  ot  fFic-  li"t.  And  1  f.  1  Oiria  1  1  v-; 
tFie  sub r out  i Tie  ri.  ods  the  mettiod  of  .-iiti  r  I  aopnierit  .  both 
s  I  n  r  01  it  1  ne  s  iis>-'  ofi  iriteser  vei.lor  .-ui''.  t  uu  rr'--|  v  i  jJes  to 
t'vr.ster  t  hr  1  1 1 1  o  rma  1 1  ori  to  ttie  mairi  r  1  ■  -  r  ,-.it, . 

With  thf'Sp  tun  tools  and  ..ifiiers-  wiiicn  will  iie  disru'-sed  um.  n 
fioeded.  it  is  possible  to  begin  the  iTi  s(  '  is,-- 1  ori  of  how  tor 
program  operates.  All  refererices  in  this  iectiori  refer  +0.  thf- 
logio  flow  diagram  in  Appendix  D.  The  proigrani  first  ohtsins  t' 
lues  vof  the  various  shop  p  ar  c  niof  e  r  s  .  imti-  Mros  tbio  linF-oo 
I  i-i  .  set'--  p  o  1  n  t. r  s  .  arid  thi-fi  i  un-  t  l.r-  <;  Fior  to  rr’ScFi  sto-.d" 

'  lit.-;  c  (jriri  I  t  1  n  1 1  s  (  pg.  FTP'.,  t  i  r.ni  tiii-  r  o  1  iit  tfic  s  r  itiu  1  a  f  i  nr  1 

•  1  r.r  (orj'-.  rtoe  woel-  =t  t  iiiio.  -rkiu-.  tor  1  ■  ■  1  ri  f  o  T  rii  s  f  I  o  r  i  i 

•  '  1 1  '  '  1 1  t  I  ri  t  I  Of  fk  '  s  T  ;  1 1  ■  .  A  t  +  e  r  t  'oo  ■  i  tri' '  I  1  i  r.i ,  i  ;•  <  i  i  i 

ti  rr,  r-  .  I  <■  i  I  1  .  •  ♦  O '  niitri|t“.  the  t  lo  -  I  t  ■  ti|',  n!  tin'  . 

til'*..  -  ui  U  C'U  t  I  rt>  .  P  T  f.  1 1 f  ■ .  i  t  ;  1  1  I  if  '  1 1  1  I  ,  ■  ■  ;  I  ■  i  .1  n  1  r-i  I  tiro 

;  -  rii-'  f  r-  r  :  ,  Tf  t  io.  i  r-  .  r  u  :  lio-.  t  ..  i  r,-  iit  t  Iio-  )  nt  (•rnist  i  on  d  i  i  <'•  *  1 
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the  proarsm  cells  subroutine  INPUT.  Optionally  the  profirani 
calls  subroutine  DATA  to  input  the  information  from  a  stored 
data  file.  In  either  case  thf  rosiram  must  then  call  subroutine 
f  ARAM.  This  subroutine  calculai  es  the  needed  Prirameters  of  the 
rionworkable  delay  time  di  strihul  inri  froni  the  sjveii  nieari  and 
standard  deviation. 

The  model  is  then  operated  for  twenty  weet- s  to  Ir^r  ins  the 
shop  to  steady  state  conditions  <  ps.  2A  ).  After  the  shoe  has 
been  initialised  the  current  shop  status  is  outputted  (  See 
Appendix  C  )  .  The  prosram  then  prompts  for  the  irif ormstion 
reouired  to  simulate  the  urcomins  week.  The  information 
reouired  is  the  induction  tar  set  valuer  smourit  of  overtime*  arid 
riuniher  of  workers  transferrins  in  or  out  of  the  shop.  The 
efficiency  ratinS  of  each  worker  is  updated  by  orie  week. 

Transfer  of  workers  in  or  out  of  the  shop  orrurs  ^t  this  point  i 
PS.  3B  ). 

Jobs  are  Serierated  and  siven  an  exponentially  distributed 
joh  size  (  PS.  3B  )  ,  A  certain  percentaSe  of  these  -jobs  are 
then  placed  on  the  nonworkable  backlos  and  the  rest  are  placed 
on  the  workable  backloS.  Uhen  a  Job  is  placed  ori  the 
nonworkable  backlos  the  proSram  calls  subroutine  LiF.I.AY  to 
compute  the  delay  time.  The  delay  time  distribution  is  a 
two-staSe  erlans  distribution.  This  delay  time  is  added  to  Ihi 
current  clock  value  and  adjusted  so  that  the  move  time  is  not 
wheri  the  shop  is  closed  for  the  nidht.  UJheri  jobs  are  Placed  ryi 
the  workable  bad  1  os  the  prostram  computes  ten  percent  of  the  j  .'f' 
sice  and  stores  this  value  with  the  entry.  Jobs  are  senerated 
uritil  the  total  aniount  of  work  Generated  e;:ceeds  the  inputted 
t  a  r <3et  value. 

The  program  begins  the  siriulatiori  by  placing  an  eritry  ori  tr,.. 
e.ent  list  to  indicate  the  end  oi  the  day.  Ne'ct  the  workers 
+  are  idle  are  given  loh--  from  the  workable  hackloa.  Move 
*ime  for  these  Jobs  are  determir.ed  by  c-tddins  Lhe  current  clorj 
lue  to  the  ar  r- rop  r  i  ate  am<jurit  ..f  the  joJ  siri'.  I’nis  value  i 
■'ither  teri  perLont  or  90  percent  dependind  on  wliether  the  job 
brs  been  in  prorer,.-,  fiPtofe  (i.e.  Job  is  on  paths  3  or  4).  Dm' 
worler"  effirierMs  rotiris  is  u'-od  Po  arijust  the  niove  time  tc. 
re'  lert  the  addit  lorisl  timr'  neerion  h'-;  ad.'U'- 1  i  riS  workers.  Uhi'  i 
'•'e  V'-r  tal  e'  a  loh  tus  idle  tim.-  i:  on  he  . unroot  irie  1  '  IM  I 

Till-  cord  iriue?  until  eittier  fh.'  wi-ii  1  r-'r  s  ^'le  icilo  or  rio  iobs 
r'-ii,--iiri  on  t  tiC’  woikat'le  baekD.s. 

simulatiori  p  roceerls  bv:  set  tire,  the  clock  ecual  to  the  nio.  i- 
‘  iiiip  of  the  first  ppit  rv  nri  t  ,'-,0  evinrit  li<-:t.  This  c'nt  ry  is 
I  i-m  -  ..pr)  and  the  p  rogram  '  nork  s  t  <spi  ubat  t  kic  next  or  eratior. 

(  :  a .  eB  ).  If  thf'  .joh  i  <■  fonc  l.'itd  t  kien  th'  j  ireirani  must 
Of  date  the  pt-f- ro:  r  \  <te  statisti.-'s  anu  rnuriteri.  Then  subrc'  *ir: 
Mf  U  IGT:  IS  called  to  sive  t  tif-  worker  LfiotheT  lob  if  ore 

■'  liable.  Wheri  rio  Jobs  are  a'c,  1  l.shle  tkir-  worker  is  f  lass*  "i 
1  oM  f'  urit  1  1  one  beconies  .o'v-.  1  1  jh  |  e  .  Oth.-iwi  e  t  tie  lOh  is  eithr  1 
s  -tns  from  the  nonwork  abl  f'  to  fh*'*  worksirile  hack  loJ.  or  in 
sroress  with  ten  porcp'rit  conipleted.  In  the  first  c'ase  the  e'O 
1-  placed  ori  the  workable  hack  loS  direc:t]'<  if  s>lread'>  1  ri  rio.  f 
hetore*  arid  if  not  theri  the  ten  percent  -va  I  o.p  nt  tfit  loh  si;'.  1 

deferniiried  arid  stored  with  the  entry  oii  the  workatilf-  hacklo,. 

In  t  tie  second  case  the  prc.girni  will  ‘■■end  the  ink'  to  th*-- 
risfioo  r  k  a  k>  1  f '  oil  I  o  ■,  s  si'pp'ri  '  r.  j  r  fif,t,srU'  nt  t  rie  t  imt^*  wiii  I.  t;.. 

'<  I  rniitinuf'  to  t'<'  workf'd  ni .  iiilil  (  omi  I  <  ‘  on.  1li«'  I  t 


possibility  is  that  the  end  of  day  indirator  is  tak.fn  off  the 
event  list.  Until  this  occnrs  Ihr'  r-mdranp  loops  hr '  k  and  takes 
the  next  event  off  the  event  list. 

When  the  end  of  the  day  indicator  i'.  k  on  t.vk  the  event 
list  the  program  nnjst  do  se'vera.!  i  Hriai,  <  pd  1  kie  first 

thinS  IS  to  r-iit  the  emi  of  day  in<  atoi-  ffr  th(^  nf  i  day  of. in 
the  event  list.  After  df.'irid  this  <  he  prodram  t'neri  fieternunt-'-, 
whether  or  not  workers  aie  to  overtime  and  how  much.  It  n-> 

overtime  is  available  the  mos'e  tinies  of  johs  beina  worked  on  ere 
aiiji.isted  to  occur  durinS  the  ne;:t  day.  This  leouires  that  +!.<• 
lb  first  be  found  (  It  is  not  necessari  1  the  fii't  entry  r.r, 
the  event  list  )  arid  tkien  placed  back  on  witri  the  ad  lusted  no. 
time.  Suhroutirie  FvFSOFv'T  is  used  to  perforni  bot.n  of  the''e 
o- erations .  If  overtime  is  available  the  the  Job  is  oither 
worked  otj  for  the  overtiiiie  interval  and  tlicri  ad.Justedf  or 
completed  freeirid  the  worker.  When  a  job  is  completed  durir.'-. 
overtinio  it  is  t.reated  e  lactly  as  before  and  the  worker  is  f  i'.er, 
5  new  Job  if  it  is  available.  It  the  worker  receives  a  new  j.  r. 
riuririsi  the  overt  inie  perioii  its  move  time  is  immedii’t  eiy  ad  ji;p.tto 
to  the  ne',;t  day.  This  means  that  a  worktar  (  an  not  cofriPlete  ni.ir.' 
thari  orie  Job  i tj  any  sir.dle  overtime  period.  After  all  the 
workers  have  been  dealt  with  thr^  prodrani  stares  ario  f.kif' r  day. 

I'his  coTitinijes  rjn+il  five  days  or  a  weeF:  have  been  completed. 

When  a  full  wo'k  wee-k  has  been  simulated  the  prodram  outru' 
the  contents  of  toe  hscklods.  Incluriod  in  this  oukr-ijl  are  tlir 
worker  idle  time?  v'ork  cotrir  leted  >  a'.'er,-,ce  flot.'  timer  and  nuifik.  f 
nf  workers  in  the  shop  (  d .  7t:  ).  Tisis  i  nf  orirint  i  opi  witkf  the 
O' e"  ti  on  of  t,kie  averas.e  flow  time  is  iiP'iatfO  a  urit  i  ni  loi.is  1  y  sn. 
i  <■  v  a  1 1  a  h  1  e  at  a  rp  y  t  i  irp  e  .  The  a  v  e  r  s  d  e  t  1  o  w  t  r  1p  e  i  ■.  o  itp  r  pj  t  e  d  ♦ 

the  erpd  of  the  week,.  rkp-e  outrujr  is  der.fu;  led  by  sui .  r  ...jt  i  rpe 

(iUfF't.lT.  The  r-r'oskram  will  then  sk  pf  .r'.ih.er  wp-y-l  ;■  to  hf"- 
'  t  ;iiu  1  at  ed  . 

Wherp  np.  r, ^.p. a  i  ■■  to  he  inpPil.  'tp’d  the  c  .-i(7pf- '  p  t  • . 

•  '.'G  •  ••yp.d  ■  r  a  n  .J  t  .'i  p'iF-' v  i  '  k  1 1  ■.  p  of  tJ”  tIpow  t  p  nie  ;i-iii;h 

p  .  pp  ,  j  ih  f  cpp  p  t,  1  f '.e  I  INi-M  1.'.  theri  railed  .ip'p  t.i  i  ■>  iiploiiii  t  i  or, 

'I  ;yp  w  1  ;  ki  the  total  ipdle  t.iirpe*  .•■>lys  ryjo:  !.  teii.  '■  i  i,  ..pi' 

■  ijfip  1  p  I  ist  t'd  arts  out  r-ijtt  erh  the  sp.ihrDi..if  alrO  (  rrp  i  j  t  e  s  t  hr 

►  fircierpcy  ap'i'd  outp.’jts  it  t.oo.  f me, ran.  r-yrrpjrii  y  i  ti-perp 

•  '  1  n.  1  r.ate.i . 
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ShoF  be  he  ms  tic: 
n  e  ni  o  r  '  i  b  t  o  i  ■  a  a  e 


Ve  ctoi- 


f .  on t e ri 1 5  t  o  r  e ri  t,  r  : •  n n 
uoikohle  b<"r:k.lo3 


!  en  ^ercprit  of  the  job 
5 1  no 


f  L  OW 


VpIuo  of  rlocl^  when 
,joh  W3P  '^oriors'tob 


JOtBIZ 


Job  size 


RElrtAlN 


Ninety  percent  of  ,.iob 
s  1  ze 


IiIFv’ECT 


Row  of  next  entry  on 
Workable  backlog 


WORK 


0  if  not  being  worked 
on  and  the  worker  ♦ 
if  it  is 


Vertnr 


Lorit(?rt'^  tor  prft  i  y  ciri 
N  o  n  w  Q  r  k  o  1  p  b  n  I-  I  n  s 


t  VE  HI 


n  iTif'  uniil  job  move'; 

1  n  (iiocU?  I 


I  OU  Value  of  rlock  when 

-lob  was  ?.!jrier3+eo 


jnE<r)I7  Job 


RFTMAIN 


DIFv'E'Cl  Row  of  next  entry  on 

Nonworkable  backlog} 


--2  if  from  in  process 
-- 1  if  never  in  eroces 


WORK 


Sector 


(.onterit';  for  rntr^^  ori 
Worker  1  ist 


kVt  NT 


f f  f  i  c  1  e  ri  c '  <  r  s  1 1  n  3  for 
current  week 


FT  OU 


JOlfSIZ 


Number  of  weeks 
worker  has  been 
in  the  shoe 


rf-:main 


-1 


niRFCT 


Row  of  next  entry  on 
Worker  list 


WORK 


-  11 


Determine  Target 
Value  for  Inductions 


Reset  Statistics 
and  Counters 


0 


Il  icrement  Dfin  Counter 
iinrl  Wee^  Timer 


r  erminete 
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iii'  -(I'l'  tr-Mriiii^  r  inqrani  u,.;-  t.irTf  +  ('ii  l(]r  ii~r.  j  r,  t,  r 1 1 1 1  t  ^ ' 

"  I  I  M  i,  +  1  iTi  (fintrol  r- p  i  riririfj  1  ,  1  riP  ni-.i.ri  nii  if.rti'./p  ] '■>  t  ri  '.:i  t; 

I'P'T  T  '  P 1  f  C' I  (u'lC  +  hf  =hOf'  oi-nr.-  .  Hi  r  ra  ■:  1  i  1 1  p  to 

*'i*'  .  if'.c't'  (it  VorioMO  f  hi'fji  i]  1  npi  'ic-o  1 3.  oris  ori  tlie  'ih'jp. 
t'i(i  ,r‘siTi  SHtU'  3  nt  orifiipo  as  a  Iparnin^i  tool  5ri(i  srinnlft  b^' 

t  I  f-  - 1  'ij  as  SI  ir  h  . 

1  b.o  ahor-  3S  ronirose'i  ')f  throe  basic^-  eleniorii-,:  the  wortabl* 

srsi'Or  ttip  rionno  rt  eb  1  o  bai^klosi  aroa*  arid  the  p  r  orea i  rv  , 

■  tr.pe  PS.  lA),  ,.loho  arrive-  at  the  ahor  arni  norniall'-'  are 
-Titf^iO'd  3ritr.  t.fip  workable-  backlosl'  to  await  p rrice :::-s i ns  b'-;  ari 
-wvo'iable  work,  r,  If?  for  anriie  rossr'n?  o  iob  rannot  be 
:  Tori^'saed  'as  is?*  it  is  entered  intfi  the-  rionwo  rk  ah  1  e  bBcklijs 
Dsuall'j  Jobs  will  be  placed  in  the  noriworkable  breel-  Ids  becs'.i'  ■ 
of  the  noriavr'i  1  ahi  1  ity  of  a  p=»rt  or  techniral  data  reauired  for 
r  I  eicess  i  nd  .  Once  the  nonsvei  labi  1  ity  is  satisfied?  the  Job 
letorTis  to  the  workeble  bBcklod. 

Jobs  iiiove  from  the  worksb'lo  backlog  to  the  processing,  ^'o 
i  s  rieeded  .  Sioniet  i  nies  ?  d'jrind  ttie  initial  d  i  s.sssr-nib  1  s  of  a  o 
it  IS  determined  that  an  additiorisl  Part(s)  is  nr’f-'ded  to 
complete  the  .Job.  If  the  partts)  is  not  availshle?  the  job  is 
eritered  irito  the  nonworkable  barklod  (see  Fidure  1).  Wheri 
r  rocessirid  is  comp-letod  on  a  Job?  it  leaves  the  shop  . 

This  niariijal  is  a  step  by  ste'’--  disc  ri i  ori  fcjr  operatins  (  t. 
rrodr^m  ‘SHOF’*.  The  prodram  is  a  siidu]  at  ion  model  of  a  tvr-ir.-,  ! 
N.A.R.F.  shop.  To  run  the  prodram  type  i  ■'i  *RUN  SHOT’*,  In  tfie 
followind  text  prodram  i rist ruct i ons  and  di  si  lavs  are  ideritified 
h’:!  (F'ROG).  Inpijt  to  the-  prodram  is  reenirf'd  wheri  you  see  (I.IS'-'F'. 

At  the  be5tinnind  of  the  prodram  r/ou  must  choose  ari  optior, 
for  enter ind  the  initial  parameters? 

(FROG)  DO  YDU  UISH  TO  INPUT  PARAMFTERB  YnURSElF?  CY/N3 

(UEFR)  If  you  enter  'N*  the  the?  p-airameters  will  be  read  from  a 
stored  data  file. 

If  you  choose  to  input  the  parameters  yourself  then  the 
rrop.ram  will  p-rompt  for  the  information  as  seeri  iri  the  next 
section?  If  you  choose  to  read  the  value-s  from  a  stored  file 
tirri  skip  to  the  section  after  the  second  line  of  aster  i  ks  ( tftt )  . 

iRROG)  INPUT  PROBABILITY  JOB  IS  BETERMINFB  NON- WORKABLE.  UPON 
ENTERING  SHOP. 

(USEFn)  Eriter  the  probability  as  a  decimal  nunibe-r  between  0.0  and  1.0. 

(PROG)  INPUT  PROBABILITY  JOB  GOES  NON-UORKABI  F.  AFTER  START  OF 
PROCESSING. 

Mir.ER)  Same  as  above. 

(PROG)  INPUT  HEAN  DEI  AY  TIMi  IN  HAYS. 

(II', ER)  Number  must  include  rjecim.al  point. 


;’l  - 


INPUT  :-.TANDAR)i  I'f-'.'I  AT  .1  hN  (IF  IH  I.  A  i  i  i  NT  . 

'  11  p  F:  tc  ^  r,  a  ITi  t  ■  ■  i  3  h  C)  V  ( '  . 

OPOGF  TNPUr  TNTFGPR  (OHM)  SEF  M  TOR  RANMOM  NUMiTP  nONfRATOFc. 
(OF'.pR)  Seed  niust  be  an  odd  inteser  heE,weeri  -9V  end  99*’'. 

(PROG)  INPOT  AOPRAGP  JOM  SD^F  IN  STANIiARM  hAN-HOllRB, 

(Its  t  R  )  [  ri  i  e  r  n  u  m  her. 

(F'RDB)  INPUT  NUMMFR  OP  WFPKS  UNTIL  TRANGF'ERFD  FT.- RF.QNNPL  AMJO'dF'li 
AND  WORKING  PULL  E.P  F  ICILNCY  . 

kl.iSF.'R)  If  wnrker  at  full  efficiency  durind  third  weeT.  t'neri 
enter  3  *3" . 

(PROGl  INPUT  EFFICIENCY  RATING  OF  IRANSFERFD  WORKER  FOR  FIRST 
WPEK  IN  SHOP. 

(U'■■•fR)  If  the  worker  is  expected  to  work  3t  bOX  efficiency  th^ri 
enter  'C.B*. 

(F  ROG)  INPUI  I  Rf  ICIFNCY  FTAflNG  FOR  Nf  X1  WEEK. 

jhip  prodram  will  -a.k  for  efficiency  r:T  inds  for  all  bM  + 
the  last  week  of  the  3d..iuetm(^’'''^'  r-erio''.  The  prodrsm 
su  les  tlud  the  loot  week,  in  the-.-  porico.,  is  done  st  full 
efficiencyi  so  it  assigns  a  retins  of  I.O. 

(RPOGl  INPUT  NUMBER  OF  WORKERS  IN  SHOP  AT  START  OF  SIMULATION. 
(UGEFO  Enter  number. 

Any  error  in  the  input  data  will  result  in  the  ouestion 
beind  repeated.  If  viou  choose  to  read  the  parameters  from  t  he 
data  file?  the  prodram  will  still  promr-t  you  for  the  number  of 
tTien  in  the  shop. 

After  the  parameters  are-  eritered  the  prodram  initialises  the 
'■hop.  this  is  accompl  isheid  by  oporstind  the  shop  for  twenty 
weeks. 

(PROG)  MODEL  BEING  INITIALIZED 

The  i ni ti al i zati on  process  causes  a  short  delay  after  which 
the  p-rodram  display',  information  on  the  backlo'^s.  The 
i  rif  o  imat  i  ori  i',  disilaHcd  in  the  followind  format. 


>v  _ 


rt-'iK; ' 


F-:r  BtJL  TC  F  OR  WFF  K  0 


NO.  OF  HOURS  OF 
XXXX. X 

xxxx.x 

UORKFR'S  UFRF  ;i  HLF:  XXX,  X  HOURS. 

WORK  COMRLrTE,:T,i  THIS  UFF.K.  TOTALLFT'  XXX .  X  HOURS. 

AOFRAGF  Flow  TIMF  XXX. X  DAYS. 

NUMBER  OF  WORKERS  IN  SHOP'  IS  XXX. 

I  hp  prn<-!i'3ni  will  theri  r-rompt  you  for  the  i  nf  orrriat  ion  on  the 
nrroniirisF  week. 

(F'ROG)  SURFT.Y  INDUCTIONS  TO  SHOP  FOR  UPCOMING  WEEK. 

<USER)  Enter  the  target  value  for  the  week  in  hours. 

(PROG)  INPUT  OUERTIME  HOURS  AVAILABLE  THIS  WEEK. 

(USE.F\)  Enter  the  total  atiiouni  of  overtime  hours  available. 

(PROG)  INPUT  NUMBER  WORKERS  TRANSFERRING  TO/FROM  SHOP. 

(USER)  Enter  a  positive  number  if  transferrins  into  the  shoP» 
and  3  negative  number  if  leaving  shop. 

The  prodram  will  then  display  the  results  for  the  week,  in  the 
same  format  as  abover  and  ask.  if  you  wish  to  continue. 

(PROG)  DO  YOU  WISH  TO  OPERATE  ANOTHER  WEEK?  CY/ND 

(USER)  Entering  a  "N*  results  in  output  of  final  statistics 
and  termination  of  prosiram. 

Final  results  of  the  simulation  are  outputted  in  the 
followins  format. 


FUTI'M  OG 
WORKABLE 
NON-WORKABl  E 


NO.  OF  JOBS 
XXXX 
XXXX 
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t)St  ra'^ip  O 


FINAL  RFMi.  IS  FOR  XX  WEF  s 


XXX  JOi:(S  U)L  K:F  COHF'l.F;  TED  TOTALLING  XXX.  X  HOLIFvlB  OF  WORK. 

AVERAGE  FLOW  TIME  WAS  XX. X  DAYS  WITH  A 
STANDARD  DEDIATTON  OF  XX. X 

WORKERS  WERE  IDLE  FOR  XXX, X  HOURS 

SHOP  OPERATED  AT  XX. X  X 

Thpie  3rp  two  conditions  which  will  cause  the  erodrsm  to 
L  orniinated  eretristurely . 

<1)  Number  of  Jobs  in  shoe  exceeds  the  niSMimum  number  of 
jobs  allowed. 

(2)  Last  worker  in  shoe  is  t rensf er roo  out. 


It  should  be  noted  ?<t  this  point  lEist  the  major  factor 
at  Lectins  the  overall  operation  of  the  shop  is  the  status  of  the 
uoikable  bacLloS.  Operatron  of  the  model  for  a  period  of  weel 
should  show  that  worker  idle  time  increases  when  the  content  of 
this  backlog  is  low.  Anv  increase  in  idle  time  will  lower  the 
efficiency  of  the  shoe.  At  the  same  time  it  is  important  that 
the  workable  backloa  does  not  become  to  full,  This  would  result 
in  a  laraer  non-workabl e  backloa  which  in  turn  increases  thp' 
storaae  space  needed. 


APftNLUX  D 
frosrsni  Code 
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I  DI-IfVAN  IV 
■ '.H'  II  ■ .  ''HfiF'-LIIUF' 


FRI  1?  I 


■  MM  0/ 


Li*  F'RfjnRAfirU  n  ry: 

' '  *  * 
i  ♦  * 


,i,  IIN  C  GILMOUR 
imtM  I  MOriBSON 

I  rHiIJSTR  (Al.  AN'H  R.V'.IFHB  F  Ri .  I  ;JF  F  I  •  !  Mf , 
lIN'iVF.  R!.;n  Y  OF  FLFiRIIiA 


i:**  i,a!Nf:bvii.  I F  r  florima 

f.1i*  TFLFFFinNF  (901)3V?  1-V,4 

\  i:t  tit  if  *  if  t  if*  ^  *  i  i  ' 


IFFt.  FOLIOWING  FROGRAH  IB 
N.A.Fv-.F.  SHOP.  JORS  ARF 
CONTFNT.  FFIF  FOI  .I.  OWING  1 
AND  THFIR  DEFINITIONS. 


A  SIMULATION  MfFDFI  FOR  A  lYPIi  . 
BCHFnULFD  fiY  STANDAFOM  MANFIOUR 
S  LIST  OF  TFIF  MAJOR  VAR  I A  PL  FS 


PI  =  PROBAEai.ITY  JOFt  UTI.L  GO  NON-UORKAPIF  UPON  FNIR 
SHOP . 

P2  PROBAPtLITY  JOB  WILL  GO  NON-WORKABIJ;  AriFR  P 
I NO  HAS  BEGUN. 

l.AMl  X  LAM2  =  PARAMETERS  FOR  DELAY  TIME  DI  SIR  I  BUT 
MN JOB  average  FOBSIZE  IN  MANHOURS. 

DMEAN  MEAN  DELAY  TIME. 

DSTDFV  STANDARD  DEVIATION  OF  DELAY  ITME. 

NUK  =  NUMBER  OF  WEEKS  UNTIL  TRANSFERF  D  PF^RSOFJN!  . 
FULLY  ADJUSTED. 

NORMFN  NO.  OF  RF.;GULAR  WORKERS  IN  SHOP. 

ADDMPN  =  NO.  OF  WORKERS  TO  BE  TRANSFEFvTD  IN  UR  01) 
OVRTM  =  HOURS  01-  OVER  TIME  AVAILABLE  FOR  WEEK. 

HOUR  =  TARGET  VAI.  LIE  FOR  SCHF:  DOLING  JOBS  F  OR  UEFK. 
EMPTY  =  ROW  NO.  OF  FIRST  EMPTY  FN FRY . 

WQF  =  FIRST  ENTRY  IN  WORKABLE  GHEOE. 

WQL  =  LAST  •  *  •  •  . 

NWQF  =  FIRST  ENTRY  IN  NON-UORKABL.E  QUF  UF . 


GO  NON-WORKABI  L 


LFR  PRO!  r 


TIME  DISTRIBUTION, 


ENTRY  IN  WORKER  LIST 


EEEIECENCY 


C**  NWQF  =  FIRST  ENTRY  IN  NON-UORKABL.E  QUF  UF .  M 

Ct*  NUQL  =  LAST  ...  .  . 

C**  WRKF  FIRST  FNTRY  IN  WORKER  LIST. 

C**  WRKl.  ^  LAST  ■  •  ■  •  . 

C**  II  X  12  =  SEEDS  FOR  UNIFORM  RANDOM  NUMBER  GENERATOR.  M 

C**  CLOCK  ^  TIME  SINCE  SIMULATION  STARTED.  ♦ 

C**  TIMER  =  •  •  WEEK  STARTED.  *» 

C**  MAXLST  =  MAXIMl.iM  NUMBER  OF  ENTRIES  IN  LIST  ** 

cut*  FOR  EACH  J  ** 

Ctt  JOBSIZfJ)  =  JOBSIZF  IN  MANHOURS  FOR  A  JOL^  OR  EEEIECENCY 

C**  RATING  IF  A  WORKER.  +* 

C**  EVENK  J)  =  TIME  TlLl.  JOB  MOVF.S  IN  MODEL. 

CK*  REMAIN!  J)  TIME  REMAINING  IN  JOB.  K 

r**  DIRECT (J)  ^  NEXT  MEMBER  IN  LIST  AFTER  MEMBER  J  it 

C**  WORK(J)  STORFS  WORKER  NO.  AND  OTHER  FLAGS.  M 

C**”  FLOW(J)  TIME  JOB  ENTERED  SFIDP.  Ft 

Cl*  JOP(J)  D.TFF-rRFNT  ELEMENTS  OF  ENTRY  TO  LIST.  *♦ 

C**  EFF(J)  LFFICIECNY  OF  WORKER  IN  WEEK  J  AFTER  TRANSFER. 

i;*t  OTHER  VARIABIES  ARF  USED  IN  VARIOUS  SECTIONS  OF  THE  FROGRAM  ft 

(  t  tttttt ttttttttt tttttttttttt ttttttttttttttttttttttttttttttttittt it  it* t 

I M F ' I  I C I T  I  NT  F:  G E  R  * ; >  (  B  ■  Q » 9-  Z  ) 

INIFGIP  REMAIN.  AJiUMFN 
RF ALtS  AVFLOW.SDFLOW 

REAL  EVFNT.Pl  .P2.MNJ0B.LAM1  ,LAM2.Cl  OCK  .  T I  ME  .  EFF  ( 6  ) » IDl.TM. 

*  HRWK  .  HRNWK . HRDONF  . T  FIRDNE .CFIRDNE  .  TO!  IDL  .FLOW  . 
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I 


.  ^  li\A.  *  •-  oiJ.<  Ui  iiJ*V//  >'AIjL  OOl:' 

SHOr'.SHOP  =  SHOP 

*  TOTFl.OfPREFLOfSOFLOW 

0005  COMHON  EVENT  (  1000  )»  FLOW  <  1000  ),  J(IHS  I  Z  (  1  000  ),  KTMAIN  (  1 000  )  » 

*  D 1 RFC  T ( 1 000 ) » WORK ( 1000 ) , JOF ( 3 ) 

0')()A  LOGICAL*!  ANS » RF.Pl.  Y  » YFG» NO 

v'003  DATA  YES/'Y  V»N0/'N'/rMAXLGT/1000/ 

0000  CALI..  ASSIGN(6» 'TI :  '  ) 

CALL  ASGIGN(3» 'DATA. DAT'  ) 

C*************************************** ******************************* 
C**  INPUT  PARAMETERS  AND  CUNBIRAINTS  ** 

C********************************************************* ************* 

0010  TYPE  A 

'^oll  A  FORMAT  ( 10(/)  .  i:!0X»25( '*' )/20X» '*  N.A.R.F.  SHOP  MODF  L  *'/l>OXf 

*  25 ('*')// 

*  '0  THIS  PROGRAM  IS  A  COMPUTER  MODEL  OF  A  TYPICAI  '/ 

*  '  N.A.R.F,  SHOP.  TO  INITIALIZE  MODEL  CERTAIN'/ 

*  '  PARAMETERS  ARE  NFFHED.  THE  PROGRAM  ALLOWS  DIRFCI'/ 

*  '  INPUT  OF  PARAMETERS  OR  READS  FROM  A  STORFD'/ 

*  '  DATA  FILE  'DATA. DAT*.  TO  USE  THE  PROGRAM'/ 


L 


)  M I : ' 

■ .1  3 
mom 
'■'.IL 
1  /. 
'  '3  t: 


in  i  o 

1.  ;  ‘  ij 

I  n  "■ 


.1  r-.l 


* 

* 

* 

* 

* 

* 


INPUT  THE  INFORMATION  PROMPTED  FOR.  THE  F 01  I  ON ( NS ' / 
INFORMATION  IS  PROVIDED  EACH  WEEK;  CONTENTS  OF  '/ 
BACKLOGS »  HOURS  WOFiK  COMPLETED,  HOURS  IDLE,  AND'/ 
AVERAGE  FLOW  TIME.  FINAL  RESULTS  SHOW  HOURS  WORK'/ 
COMPLETED,  HOURS  IDl.E,  AVERAGE  FLOW  TIME,  S  T  ANDAhD '  / 
DEVIATION  OF  FLOW  TIME,  AND  SHOP  EFFICIENCY.'/) 


50 


6 


TYPE  6 
FORMAT (/• 


WANT  TO  INPUT  PARAMETERS  YOURSELF?  LY/NJ 
ANS 


t) 


'10 


READ  (6,35,E:RR=30) 

FORMAT (A1 ) 

IF(ANS.NE. YES)  GO  TO  40 

CALL  INPU'KPl  ,P',?,Il,I2,DMEAN,DSTDEV,NWK,MNJ0D,NnRMrN,LM  ) 

GO  TO  45 

ir(ANS.NF.NO)  GO  TO  30 
CAL  L  DATA  (  PI  ,  P2  ,  I  1  ,  1  2  ,  DMEAN ,  DST DF V  ,  NWK  ,  MN  JOD  ,  NORM!.  N  ,  EF  F  ) 

)F  CALL  PAF<AM(DhF  AN,DSIDEV,LAM1  ,L  AM2) 

TYPE  46 

4.;.  FORMAT  (  10(/)  ,  '  MODEL  BEING  INI  IT  Al  IZED  '  ,  10  (  /  )  ) 

t  ******************************************,*.*********  ***)t:  ♦  t  *  * 

F  *♦  INITIAL  LIST  IS  EMPTY  *♦ 

I  ************************************************;(; 

MXl.STl  =  MAXLST-1 
DO  50  M=1,MXLST1 
5'.)  DIRFCI  (M)  =  M+1 

DIRECT  (MAXI.  ST)  =  0 

I  ItM****************************************************************!* 
f.  **  TNTTIAI.  IZE  POINTERS  *1 

r  ************************************************************1**1  ****** 

FLAG  ^  1 
IDLE;  -  0 
NO  JOB  1 

NUQF  =  0 
Nwni  0 
WOF  ^  0 
WOl  -  0 
URFL  -  U 
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iiu  rK'AN  r'.' 


U02 .21 


I  R  t  12-  JHM 


'I,-. ;  o  / 


F-Af.F  ,  •• 


URl-  F  -  0 

■  ■■ 

i;hF-Ti  •  1 

o 

‘"'4  1 

JOF-tWl.  -  0 

'  •u4  2 

FIRUK  =  0.0 

>■■“.'4  V 

JOHNWK  =  0 

.  .044 

F1RNUF\  =  0.0 

O0  4S 

CLOCK  -  0,0 

‘ '  4  6 

FIRnONF-  ^  0.0 

> ‘047' 

thrdnf;  0.0 

r'040 

rniFLO  =  0.0 

' '  0  4  9 

snri.  no  =  o.o 

1  .  •')  C-, 

SUM  =•  NORMFM 

■'‘02.1 

ITR  =  NORMFN 

f:+:* 

G  E  M  F  R  A  T  F  U  0  fi  K  F  R  S  ♦ 

C**tt*t******'¥tt*tt***t**tti:t**t*tt***f  *^****f**f**  *******  ft  .+•♦»*. 

>  '  1 1  'i  1  V 

DO  60  K-IjHORMFN 

JOFMl)  MUK 

11  me:  1.0 

'■'OS ‘4 

J0D(2>  -  -1 

'  0  s  *• 

J0B(3)  ^  0 

(  '  0 ■ ' 

RNT  ==  FMF'TY 

' '  ■  )  S  PI 

C  A 1. L.  Ell  T(  U R KE?  1.1  R K 1.  .  0  f  T I M F  r  R 1  1.. 0 W  f  F'  M F •  T  Y  ) 

'7' ^.>^'9 

60 

CUHTTNUF 

HOURS  N0RMFNt400 

'  '  '7'  6  1 

OVR'IM  '=■  0 

>'’062 

ADDMFN  =  0 

'>063 

8  0 

IF(.UFEK,F.n.20)  FI  AG  ••=  0 

(>■065 

UIFFK  =  WFEK+l 

0066 

IF(FI.  AG.FO.  1)  GO  TO  200 

0068 

UEF.K  =  0 

0069 

CAL  L  OUTPUT ( JOBWK » HRUK » JOBNUK » HRNWK » CHRDNF  >  WEEK » SUM » 

*  IDLTM^AOFLOW) 

0070 

RHOUR  =  HRDONF 

0071 

JCOMP  =  0 

0072 

JBWK  -  0 

0073 

TOT.rrii..  =  0.0 

0074 

RDFLOW  =  TOTFLO 

0075 

RSOFLO  SQFLOW 

C**!*:* 

*;***********************************.*******  f  ***************  t  *  *  *^*** 

C** 

TK'PUT  DATA  FOR  UPCOMING  WEEK 

'''.***i****************************l*******************************  *****  *: 

0076 

100 

WEEK  WEFK+1 

0077 

IDL.  TM  =  0,0 

0078 

115 

TYPE  il6 

00?9 

1  1  6 

FORMAT  (/'  SUPPLY  IKMillCTTON'  W  SHOP  FOR  NEXT  WEEK  (HOURS)  'f«) 

0080 

RF  AD  (  6  f  1 1  7  »  ERR''''  115'  HOI  IR^ 

0081 

1  1  7 

FORMAT ( 15) 

008  :> 

HOURS  ^  HOURS* 10 

008 

1  20 

TYPE  121 

0  08  4 

1 :l 

FORMAT (/'  INPUT  OOFRTIMF  HOURS  AVAILABLE  THIS  WEEK,  'ri) 

0  08' 

RFAD  (  6  f  1  1  7  ,  F-  RR''  1  20  )  OORTM 

0OH8 

1  .’O 

TYPE  126 
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yo:'..'  1 


f  R I  12-  JUN-  B 1.  0'5  :  -1 6  : 0  ■' 


F'hI.F  '  '1 


i  HR  TRAN  I'v» 

•  iioi'.RHiiF'-RHOF' 

•  i;-.:  rriRNiM  rNRUT  NUHRTR  KOF<KERS  Tr<  AH^'F  F  RR  1  Ni  ■  TA/FRDM  BFIOR  .  I:"'-) 

%  '  F'OBITU'F-  NMMF^t  R  If  IRANRFl  RRFNn  I  r' i  A  RFIAP,  AF'n 

i  '  nf  batk'f:  numrer  if'  if  a'.hnif  rfirf' .  ' . t  > 

RF  AIK  R  .  t  1  /,F:RR=12T.  )  ALIDMEN 

I  tlFFTT  Hi*  1  +  ttt.  +  t  **♦♦♦**'♦•' 

1  1:+  DPDATt;  WORKER  STAIUS 

r  *  4;'t  ;*( *^:  *  +  1 1  1 1 +  K  ♦  *t* 1 1 T  T  ♦  ♦  t  »  M  M  ' 

'■o;;''  I  10  PNT  --  WRKE 

100  IF(  JOF:SIZ(PNT)  .EO.NWK^  GO  TO  140 
"O'  '  J0BSI2(PNT)  -  JOBBIZCPNn  F  1 

EVENT  (PNT)  -  EFE  <  J0HB1Z(PNT  )  ) 

K'R'4  160  F'NT  lOfRFCKPNT) 

. .  TFFPNUNF.O)  GO  TO  150 

(;*t  Ai.iLi  OR  HEI  ETE  WORKERS 

Om-  '  SUM  SUMiADTiMEN 

"  '  IF(ArtTiMFN,EQ.O)  GO  TO  200 

IF(ALir,i(TEN,lT.O)  GO  TO  175 
v'lo?  no  170  k^IjAThimen 

"|K6  J(.)B(1)  1 

TIME  EFFd) 

"1"'.  J0B(?)  =  -1 

■I",.  JOBCi)  r:  0 

KIOV-  IIII..E  =:  IDLE+l 

"lOB  PNT  =  EMPTY 

1  OR  CALI..  F'UT  <  WRKE  f  URKI  .  0 »  TIME  »RFl..OU » EMPTY  ) 

0110  CALL.  TinLE(SUM»CLOCKfOf  PNT»  IDI.  TM»  ITR^TOTIDL  > 

01  n  CALL  NF.UJOH(.PNT»UQF»WQLfNWQF»NUQI.  >  EMPTY  >J0T:WK,HRUK. 

*  CLOCK  *  NO  JOB » IDLE  f  SUM » I  DL.TM  .  I TR  •  TOT  I  Bl. ) 

0  1  i:;'  170  CONTINUE 

0113  GO  TO  200 

CtMt*********************************************************'*'^*^  ^  ^  1  *  * 
C**  DELETE  WORKERS  *» 

0114  175  ADDMEN  ==  -ADDME.N 

0115  DO  180  K=l, ADDMEN 

A 1 1 6  CALL  DEL  ETE  ( WOE  » WQL  f  NWQF ,  NUQL » WRKE  •  WRKL  r  EMPTY  .  CLOCK  »  T  Dl.  E  t 

■¥  J0PWK5HRWK) 

0117  ISO  CONTI NUE 

C^F-iFr  *;>:***♦* Y***l!***l(*Y****lc;(!***i)KYt)Kt*Y*)F: E  ♦  i  *  E  1 

f:*E  GENERATE  INCOMING  JOE'.S  ** 

0117  200  THOURS-=^  0 

. '  117  1 E ( HOURS . EH , 0 )  GO  T 0  240 

0121  210  MAX  JOB  JOBWK  + JOBNUK+SUM+ 1 

0122  IF(MAXJO[<.GE..MAXi..ST)  GO  TO  810 

0124  JOB(l)  -  ALOG(RAN(I1tI2))*MNJOD*10 

r.i;-;,  IE  (  JOFk  |  >  .  t  (J .  0  )  GO  TO  210 

012/  RFLOW  “  CLOCK 

"  1  2F'.  IF'  RAN  <  N  f  I  2  )  .  GT  .  P 1  )  GO  TU  220 

7  ^-t***** I:# ****»***#*♦♦  Y**tYY*********!l;*<:*!(t**K!(t***)K*lKF:********:tYY!F:Y  Y*'Y'F:* 
C*K  ENTER  NON- WORKABLE  QUEUE  t* 


JOB ' 3  ) 

1 

1  •■■  1 

JODNUK 

J0DNUKT1 

1 

HRNWK 

HRNMK-1  JOD(  1.  ) 

!  ■ 

CAT  L  DF 

!  AY  (  T  I  ME.  ,11.1  2  ,  L.AMl  ,  LAM2  ,  CLOCK  ) 

1  .'  ' 

CALL  f  lirCNUUF  ,NWOL  ,2f  f  IMF  f  RF  LOU  » EMPTY  ) 

1  •■'. 

GO  TO  2 

■••0 

I  t  **^t.*t*tt.  *****:♦:**********  *****l:****)»c)*:**it*i  ♦'♦'tf''**'*'' 

I,  M  ENTE  R  WORKABL  E  QLIRUF  ‘ 


M7-,  :':'o 

JOBUK  ■=  J0E;WK+1 

'  1.  :•■  ' 

HRWK  ---  HRWK  +  JODd  .) 

'13'-: 

NO  IDD  0 

■1  79 

D  lOF:  ■=  J0D<1)/10 

'14  0 

T.CME  =  DJOEi 

■  1  4  1 

.)0P(2)  =  J0D(1)-DJ0B 

'  (  ) .  ■ 

J0P<3)  '  0 

'  :  4 

CAl.L  PUT  •;  WQF.  UQL.,0,  TIME,  RFLOW,  EMPTY  > 

■  1  I  4  230 

THOLIRS  “  THOURS  +  JOB(  1  ) 

1  1  4S 

1F(TH0URE.:.LE. HOURS)  GO  TO  210 

(:tt****t:¥t***'^^t***t****t**^tt^tt*tt*t***tttti^^tt*tt%ttl^t  it  * « 1 1 

V**  START  SIMULATION  r» 

'>1  V/  STO  DAY  =•  0 
"1.  ?  .-.  TIMER  =  0 

■'T  V>  IF  ( CLOCK.  NE,  0.0)  SO  TO  280 

ft  t  *  ♦  *  t  t 

F^:*  RUT  END  OF  DAY  IKD'.'TCATOR  OH  EOENT  CHAIN 

f  t  Y  t  *  *  t  * 

01  SI  JOB(l)  =  -  I 

A152  TIME  =  80.001 

r'JS3  J0P(2>  -  0 

^<!S4  J0E<<7)  0 

O'lSS  CAT. I  RUT(NWQF>NUQI  t  2»  TIME » RFLOW f  EMF’TY ) 

O:  ,6  280  PNT  URKF 

01S7  290  IF(REMAIN(RNT) .NE.-l )  GO  TO  300 

0  IS?  CAL  L  T I DLE ( SUM » CL  OCK  r  0 » PNT  r I DLTH . I TR  » TOT  I DL ) 

0160  IDLE  =:  IDLE+1 

■''161  300  PNT  =  DIRECT(PNT) 

0162  TF<PNT.NE.O)  GO  TO  290 

0164  310  PNT  =  WRKF 

0  165  DO  31.5  J=1»SUM 

0166  IF (IDLE  .EQ.O)  GO  TO  320 

0168  IF(NOJOD,EQ.l )  GO  TO  320 

0170  IF(REMAIN<PNT)  .NF.-l  )  GO  TO  31Si 

0 1  7?  CALL  NEW  JOE<  ( PNT » WQF  » UOL, ,  NUQT-  ,  NWOI  » E.MPTY » -  lODUK  »  HRWK  r 

*  CLOCK  r  NO  JOB » IDLE  ,  SUM » I  Dl.  TM .  T  TR  »  TOTI  DL  ) 

0163  315  PNT  =  DIRECT(PNT) 

r.**H^i  *i^*(t**J:*~ift***t*t*********t***ttt1iit'¥*********'^ittttt**t*%t*ti.^**  <>-  « 
r**  UPDATE  CLOCK  t» 

if  If  %*****■»(  tttt***t  ******  ^  t 

/A  V.'O  (.LOCK  EOENKNWOr  ) 

C************  ********************************************************  If  i 

r.*t  TAKE  FIRST  EOLNT  AND  TEST  FOR  TYPE  t‘ 

[]*********** *******************  k*******************************  *****  H  i 


F  PU  1?  II  IN  p.\ 


■  1 

■  1  1 


i  "i  I  ‘ , 

'M  '■ 
■  ■  ) 

-  ■  1 

I  ‘  ’  I . 

■  I  ' '  I 

'  U'  ■ 


j '  ' >, 

'  ■  r?  ‘5 


■  1/  ij  ft 

'.'■.■'''I 


J' 

OT'O  1 
n 

0?0(', 

0 

r.:'OP 


",'10 
■''11 
' 1  ;■ 
’>.’1 


O'  1  r 
1 

"  .  ■  1  /, 
1  /• 
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RHAlK  /»32jE:f;'Ri^:30)  II 

Ffll-MAfKrH 
12  =  II 

40  lYH,  41 

41  F-flRMAH/  TNF'Ul  AKE.RAnF  JOB  GHZI';  IN  STANBARri  MAN-HUUFH;  ./ 

*  '  KUIBT  !NCI  J.IBr''  DEC  I  MAI.  |■^TNT■|  H  t  ) 

F^■FA1.K6.42.ERI^=40)  MMJOB 

41  rORMAl  (FK.,2) 

60  lYF’E  A1 

61  rnivHAIK/''  INRUT  NUMBER  Ul-  UtEKS  UNTIL  IRANSEERED  F’ERBONNH 

T  ■'  ADJUCTEB  AND  WORKING  FULL  EFFICIENCY.  (13  FORMAT 

RF  AIK  /,  ,32,ERR^60)  NUK 

61  lYFF  66 

FliRMAK/'  INPUT  EFFICIENCY  RATING  OF  IRANSFERRI.i  WORKER'' 

*  ■  for  f  irst  week  FN  SFIOR.  (FF  UORKIR  I/.  / 

t  '  FXF'LCTEB  10  WORK  Al  002  IlFICIENLY  MIINV 

t  '  EFFICIENCY  RAI  1  NO  IJ  O ,  oo  >  hf> 

RT  AIK/, ,  10,ERR=6F. )  EFT  (1  ) 

M  'r:  1 

II  <  M  .  O'  .  f.'WI,  1  '  01)  I  u  •’/ 

M  ;  MM 
F(TT 

HiF-MAi';,  -  [N!-I!i  IFF  IL!F„f."Y  F:AIIN1'  I  riK'  1|U  oi  v  |  OFFK.  '  H,  i 

RF.  Al!  (  M  -  1  0 . 1  O’R  K'o  ,  [  1  I  ■  M  ) 
on  rn  .o^. 


-  TY  - 


'4 


I  fp  ■  >  m  u;,:  ;  ;  ■  r 

mu’ 

tYPF..  PI 

fOKMAU,  [N(  ill  rtin;iFfH:  i  pai  imp.  fuc  hha  m  f  f,  AAAir) 

Ip!  Ill  ’A 
i.  FFvrJWF.  '  1.0 

I  YF'E  At 

FURnAli  /'  INF  Ul  MUMREfv*  UF-  WORKt  FAi:.  FN  StItiF’  At  BlART', 
t  ■  Ilf  A 1  hi  II  AT  I  ON.  (  I  f  ORHAl  »  '.A- 

Rf  AIKA.  J(,'.F  RR-^SO)  HORMt;N 
RF  T URN 
f.  Nil 


-  Ui  - 


I  DR  IRAN  iV 
SHDP.SHOR^DHOP 


D02 


1 


FRI  12  JUN-81  05:46:31 


fAii( 


1 


00(r,’ 
0003 
0004 
0005 
0006 
000  7 


OURROUTINP  liATAd'l  tF'2»  1 1  »  12.lif1f  AN,lir.Tri£O.NUK  IDf; .  NDRIH  lOf  i  |  , 

r**  SUHROUTINF,  DATA  IS  USt.Ti  ID  INPUT  T  HP  INMIAI  PhRAHE  U  R'_,  ♦ 

(  **  PROM  A  STORFD  DAI  A  PILE. 

C*t  POR  A  DPPINITION  OP  THE  VARIAPl ES  SEE  TUP  MAIN  PROORAM.  * 

REAL  HNJOI; 

MI MENS I ON  PPP<6) 

REAM ( 3  »  5  f  ERR  =  25 )  PI » P2  »  UMPAN »  MSTHEO , NUK . MN JOH 
5  P0RMAn2(2X»P5.4)  »  14X»2(2X»P  10,3)  »2X,  I3»2y.P6.2) 

RPAri<3»  10,PRR  =  25)  (LPP<  J)  »  J^1  »6> 

10  FORMAT (2X,6P4, 2) 

Ct*  USE  CLOCK  TO  PINM  RANDOM  SEED  POR  RANDOM  NUMDER  GENERATOR  *i 


OOOB  II  =  SECNDS(0. )/3.0 

'.'009  IPIMDIK  11  »2)  .EQ.O)  11  =  II  +  1 

0011  12  n 

0012  15  TYPE  16 

0013  16  PORMAK/'  INPUT  NUMMPR  UORKERB  IN  SHOP  AT  START  OF'. 

*  '  SIMULATION ,  ',$) 

0014  RF.Ati(6.20»FRR=15)  NORMEN 

0'015  20  FORMAT  (15) 

'>016  RETURN 

0017  25  TYPE  26 

0018  26  FORMAK/'  ERROR  IN  FILE  M.iATA.DAT’,  CHECK  TILE.') 

0019  STOP 

0020  END 
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I  OR TRAN  10 
F.Hrii',SHUf--=BHOR 


F  R  i;  1  2 


PA.. I 


0001 


ooo;,> 

0003 


0'>0-1 

0005 

0007 


0009 
0010 
001.  ] 
('012 
0013 


00  IT 
0015 
0016 
0017 


0018 

0019 

0020 

0021 


05 : 


I < 


BURROUr  INF-  PARAM(  DMFAN.  EiST  DE  O.l  AMI  f  L  AM  '  .• 

Cl*  SUBRDUTINP  CALCUL,ATL.S  THF-  PARAMETF.RB  f  ii).:  TFT  UPI.AY  TlMl 
C**  DISTFv‘I8UTI0N.  ‘  ' 

C*****c!*:*****!***)t:****j|:****!**)t;**H(**»»»*;****ll*****4:)(;*;***»;**1fl*r*tMl»t*»  > 

RF.AI..*8  AfB 
RF.AL  LAH1,LAM2 

C*******!*****.*'*:*****************)(:)t:!********************itc********ltt'F**' 
CK*  CAI.CUL.ATF  COEFF  ICIFNT  OF  OARIANCC; 

(  *  iC^jfl^jCl^C**:***)*!*****!*!**********  **  ***)((*  ******  l*******:*******!*!*!^**'!’- 

COOAR  =  DBTi;iEO/IiMFAN 

IF ( COOAR. BF. 0.99)  GO  TO  20 

IF ( COOAR. LF. 0.71)  GO  TO  30 

C*********************************l:***********^**T****T.*****l  **  -.  +  *  r  *  ♦  * 
C**  F  IND  PARAMFTFRS  OF  6ENFRAI.  TUO-STAGF  FRI.  ANG  1' 

C*************************************************************  H  M  t.  i  ♦  ♦  r 
A  =  DMFAN/ (tiMFAN**2-liSTDEV**2) 

t:  =  GQRT  (  2*DSTDEV**2-DMF;AN**2  )  /  (  DMF  AN**?--  DC  I  DF:V**2  ) 

LAMl  =  A-B 
LAM2  ••'  A  +  B 
RETURN 

C*********************************************  +  ********,******4'M*llt*ti 
r  *  *  FIN D  F-  A F •  A M F  1  FT R 5  OF  1  X F ' 0 N F  N  1  I A 1  ►  • 

C  ************************************************************  *1**1:»+*  ft 

20  BUM  I  =  l.O/DMFAf) 

I..AM2  =  100.0*LiUMI 

LAMl  =  LAM2/(  DMF- AN*l  AM2-1 .0) 

RETURN 

C****************  ***********************************************  *****^1* 
C**  FIND  PARAMFIFRS  OF  SPECIAL  TWO-STAGE  ERl.ANG.  ** 

C***************************** ****************************** *********** 
30  LAMl  =  2.0/DMFAN 

LAM2  =  LAMl 
RETURN 
END 


18  - 


I  UK TRAM  IV 
S:Hnp,SHIlR  =  BHOR 


vo:*.2i 


FRI  1..-  JUN-B1 


R-V>i 


.  -  1  SlIRRfil  I  ]  1  Nf  Tn:  1  F  TF;  UQF  »  UOI  *  NUMF  r  NU(^I.  ,  WRKF  ,  Wf  'KI  » I  MR  1  T  .  Cl  c  ‘  • 

F  TIiLF  f  JUiaiK.HRUK) 

SUHRdUriMr  [iRI.RTFB  workers  FF^OM  TFIF  SIIOP  AMU  rMlIC  art  Uh^-: 

(  F*  IFF  I  RACK  OH  THF:  WORKAHI.E  BACKI  OB. 

O'HC  IHF’LICIT  IMTECER  (A-Z) 

"•'>OT  RRAt  F:UEFFT,  CLOCK.!  IHF.  .  HRWK .  F  LOW .  RF  l.UW 

OBO-T  COMMOM  E:VF;NT<  1000)  .Fl.DW(  1000)  .  JORBTZC  1000)  .RFnA  [N(  1  0O'«  '  . 

*  n I RF  CT ( 1 000 ) . WORK ( 1 000 ) . JOB ( i ) 

'■''O',  If  (WRKf  .F:Q.WRKI..  )  GO  TO  50 

I  EiFiF *)♦:♦:♦;;<<******;♦:**♦)♦: FT  tFft‘  '  •  ; 

TTF  FIND  WORKER'S  LOCATION  IN  LIST.  •• 

"'■‘O'  RNTA  ~  WRKE 

'“-0"  c  RNTD  =  DIRECT  (Fi'J  I  A) 

('• 'UV  1 F  (  D I  RF  C  1  (  F'NT  D  )  .  EO  .  0  )  GO  I  0  1 0 

on  IF  RNIA  ^  RNFD 

nolo  BU  TO  5 

C*F  RFMOOE  WORKER  AND  IlfDATE  ROINTERS.  ♦• 

r.FFtFFFFcFiFFFFFF’FFFFtFFiFFFFFFFFFFFFFFFtFFFFFFFF.tFFFFFFEEFFFtFFFFF**'**  »  • 


TO  40 


001  s 

10 

DIRECT (RNTA)  =  0 

0  0 1  4 

WRKR  -■  RNTA 

0015 

DIRECT (RNTD)  =  ENRTY 

0016 

EMPTY  =‘  RNTB 

0017 

IF ( Rf  MAIN ( RNTB ) . EO . -  1 )  GO 

0019 

RNTl  =  REMAIN (RNTB) 

0020 

If  (PNTl .EO.NWQF)  GO  TO  25 

0022 

PNT2  =  NUQF 

0023 

15 

PNT3  =  DIRFCT(PNT'2) 

0024 

IF (PN! 3.EQ.PNT1 )  GO  TO  20 

0026 

PNT2  =  PNT3 

002  7 

GO  TO  15 

f:*t  F'OT  UNFINISHED  JOB  F«ACK  ON  WORKABLE  BACKI  OB.  *i 


(R)2e 

20 

JOB(l)  =:  J0BSIZ(PNT3) 

002? 

J0B(2)  =  RFMAIN(PHT3) 

o 

o 

JOB (3)  =  U0RK(PNT3) 

0031 

TIME  =  EVENT (PNT3) 

0032 

RFLOW  =  EL0W(PNT3) 

0033 

DIRECT(PNT2)  =  DlRrCT(PNT3) 

0034 

DIRFCT(PN13)  =  EMPTY 

0035 

EMPTY  =  PNT3 

0036 

I F  ( D I RECT  ( PNT2 )  .  EO .  0  )  NUOl  .=PN  12 

003B 

GO  TO  30 

003B 

25 

C  AI..L  TAKE  <  NUOE  .  NWQF. .  T I  ME .  RFLOW » F  MPT  Y  .  S  T  ATLIS  ) 

0040 

30 

TIME  =  TIME-CLOCK 

■T041 

DUMMY  =  TIMF:*EVENT(  J0B(3)  ) 

0042 

Tr( J0B(2) .EQ.O)  GO  TO  35 

0044 

TIME  =  DUMMY 

0045 

J0B(3)  =  “2 

0046 

CAI  L  PUKWQE.UOl,.  1  .  T  IMF . RFLOW » EMPl  Y  ) 

39  - 


1 


fni.F  ' 


I  OlvTPAN  1',' 


"■'1  ■  JO]:WK  JUi:i;K  +  l 

^"'  4:^  FHRWK  FIFsUK  l  JOt:  f  1  ) 

ur..V'  RF'TURN 

■  jriRC)  nUMMY 

Y'OM  JOL:(  Y. )  1 

CALL  F  U1  (WUF-  ,WQI  .1  »  T  I  ME  » RFLOU ,  F-MF'l  Y  ) 

OOS  ^,  JDinOK  -  JORUK  +  1 

■JOSY  F^RUK  =  FIRWK  +  JfJHC  1  ,) 

UOb")  RF-FURN 

r.**  UURKER  WAS  IliLE  .  Y 

OOSf.  YO  IDLF  IIiLFf-l 

('057  RETURN 

0058  50  type;  51 

('059  51  FORMAK/'  All.  WORKERS  liFLETETi.  PROGRAM  TERM  I  NATE  D .  '  > 

0060  STOP 

•'('61  ENli 


I  OR TRAN  IV 
SHOP.SHOF'-SHnF' 


V02 . 2- 1 


FRl  12-JUN-Bl  Of>:4A:41 


F'Aijf:  <  ■  ] 


Ol'o  1 


0002 

0002 

ooor. 

0  0(1  A 
000  7 
0009 
<  'Cl  t  o 
001  .1 
'101  2 


■OdliROUT  inf:  liF'l.AY<  TOI  A1  » I  ,  J,PAR1  »  F'AR2 »  T INF  ) 

V**  subroutinf:  uetermines  het.ay  time,  for  a  joe  entering  fhf  ** 

n**  NON-UORKAPLE  QUEUE,  DEI.AY  TIME  IS  AnjUSTEn  SO  THAT  NO 
Ct*  JOBS  CAN  COME  OFF  THE  QUEUE  AT  NIGHT.  M 

r.**  VARIABLES  ARE  AS  BEEINf.rt  IN  MAIN  PROGRAM.  ** 

C*tt*****t*******tt**t****ttt*tt**iii*t******t****%***ie.ttt***tttif*%tifi**:’ 
S  INTER  =  (--Al.nG(RAN(I»J>)/PARl-AI..OG(RAN(I.  J)  )/PAR2)F:240 

IF<INTER.GT.4800)  GO  TO  5 
TOTAL  =  INFER+TIME 
REM  =••  AMOLi  (  TOTAL  »  240.0) 

IF(REM.GT.SO.O)  go  TO  10 
RETURN 

10  TOTAL.  T0TAL  +  240--REH 

RETURN 
END 


I  iiRlF'AN  U» 
sum  ' .  '.HOF'  =  SH(.if’ 


'v'o.,' .  1 


frVT  1'> 


I  U  'l  I  I  I 


0(H)  ■' 
0003 
000  A 


('005 

00()‘' 

0009 


001  I 
OOl? 
00]  4 
■'015 
001  7 
0019 
O020 


00 -M 
0022 
0023 
0024 
0025 
0026 
0027 
002B 
(029 
0030 


0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 


0‘:. 


SI  H  ROIJ I  f  NF  F'U  I  ( .  '-XU-J »  LFCOU  *  SOK  •  f-:F,:AI  .  Fv'F  I.  (JU  »  SF  AC;!:  ) 


0%%  SUBR.GIMIHF  PUT  IS  USBT.i  TO  F-UT  AN  ENIRY  ONI  0  THr  LIST.  F  H !  f  > 

I,*!*:  CAN  F.:fc.  INBEmOTEU  ON  EITHETFC  E:NI.i  OF"’  THEi  L.ISI  OP  INTO  IIIF'  hllUlf  •  •' 

I  K*  sopi  -  oapiablf::  which  he terhinf-;s  type,  of'  insertion.  *• 

OK*  IF-  0  THLN  ENTRY  IS  PUT  ONTO  BACK  OF  LIEU.  ;■ 

CK*  IP  1  ■  •  •  •  •  FRONT  OF  LIST. 

CKK  IF  2  EFNTRY  IS  SORTEti  INFO  THE  LIST  SO  I  HAT  I  F  T'  i  »* 

CK*  FRONT  OF  THE  FIRST  LARUER  ENTRY. 


CKKKKKKKKKK'tiKKKKKKK'ltKKKKKKK'FiKKKKKKKKKKKKKKKKKKKKYKKKKKKKKKKKK****'*!^''* 
IHPLICEI  INTEGER  (A-Z) 

RE  Al  EOENT  » FLOW »  RF.AI , ,  FVF  LOW 

COHrtON  EOENTI 1000) .FLDW( 1000) * JOBSl Z ( 100(' ) ,RFMAIN( 1000  > . 

*  El  I RECT  <  1000 )  » WORK  ( 1 000 )  » JOB  (  3 ) 

CKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKYKKKKKKKKKKKKKKKKKKKKKTKiT  FJ  1  Y  * • 
CKK  DETERMINE  WHERE  ENTRY  GOEBIFIRSTJ  LAST f UR  SORTED. 

rKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK'KK'F'.KKKKKKKKKKKKtKK  KK+ *KK  KK  YK 1 1  ♦  M  *  '  ■  ■ 
IF  (FROW.EQ.O)  GO  TO  50 

IF  (SORT.EQ.O)  GO  TO  40 

IF  (SORT.EQ.l)  GO  TO  30 

CK  +  KKKKKKKKKKK'FiKKKKKKKKK'FiKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKtKKt****  ** 
CK*  SORT  LIST  TO  FIND  UHEFFTI  ENTRY  GOES.  F' 

Ct**KKKKKKK't!KKKKKKKK ****************************************** **♦**!♦*  ' 
PNl  1  F  !<0W 

IF  ( F.' E N 1'  (  F' N  r  1  )  .  0 T  .  f: F  A 1  >  GO  T 0  3 ( ; 

10  PNT2  ==  DIRECT  <PNT1) 

IF  (PNT2.EU.0)  GO  TO  '■  0 
IF  (E0ENT(F’NT2)  .GT.RFAl,  )  GO  TO  20 
PNTl  =  PNT2 
GO  TO  10 

C********************************************************************** 
C**  PUT  ENTRY  INTO  MIDDLE  OF  LIST,  ** 

C****************************************************************  ******* 
20  JOBSIZ( SPACE)  =  JOB(l) 

EOENT (SPACE)  ^  REAL 
FLOW (SPACE)  =  RFLOW 
REMAIN (SPACE)  =  JOB (2) 

WORN (SPACE)  =  JOB (3) 

ZZ  =  SPACE 

SPACE  DIRECT  (SPACE) 

DIf<F.CT(PNTl)  =:  ZZ 
DIRECT (ZZ)  =  PN12 
RETURN 

t**************************************************** ******* ******»♦**» 
C**  PUT  ENTRY  ONTO  FRONT  OF  LIST.  »* 

C*************  ************************************************  *****'■*** 
P(0  PNT  =  FROW 

FROW  =  SPACE 
JOBSIZ(FROW)  =  JOBd) 

EOENT (FROW)  =  REAI 
Flow (FROW)  =  RFLOW 
REMAIN (FROW)  =  J0B(2) 

WORK  (FROW)  J0B(3) 

SPACE  =  DIRECT (SPACE) 
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I-OF^TK'AN  IV 

SHnp,pnnp-"umr- 


VO? .  2-  1 


FPI  12  JUfJ  Bl  OS;4/>:4< 


PAP  I 


.  ^  I  - 


O' ' ;  I 
’  '  ( ’  4  2 
004  ? 
Oi>4  4 
O'  i4fi 
('04.-, 
','0  4  ■> 
('(■4P 
( ' '  4  y 
OOPO 

Or','-,  ’ 


('lOSO 
'■'OS  ■, 

I,, 1 0  p,  4 
00')'  i 

OO'r.O 

( H  )P 

'■'05Pi 

'  O'OPjV 
'''060 
,  '''061 
00*2 


Lui'F PI '; rPDii)  -  PNi 
RPTDKN 

r  t  **  t  k »  » t  t  T 

I  *♦  PUT  e:;ntry  onto  lni;i  op  i.isr. 

40  PNl  -  PRO  III 

L.ROU  SPACE 
JOP.SIIMLROU)  .J0P<1) 

E  VE  NT  (LROU)  REAP 
now  (I  ROW)  =  RFI.OW 
RrrtAIN''LROW)  J0B(2) 

WORK  (PROW)  =  JUF:(3.) 

SPAPP  =  n 1  RPC 1  (SPACE) 

LilRPCl(PNT)  ==  PROW 
niRECT  (PROW  )  0 

RE  r URN 

I  P*  ENTRY  IS  FIRS(  IN  LIST  SETUP  IS  RPOUIRE.n. 

i'1r******:*.************:*******:**:***)((**:****************;********!r****t  «;  t  : 

SO  FROM  =  SPACE 
PROW  -  SPACE 
JOT:SIZ(FROW)  =•■■■  JOIKl) 
fVFNKE  ROW)  -  RPAI 
FLOW (PROW)  =  RPPOW 
REMAIN  (F  ROW)  =)  JUI:(2) 

WORK (F ROW)  =  J0B(3) 

SPACE  =  MIRECK  SPACE) 

D I  RPC ((PROW)  =  0 

RETURN 

END 
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I  UK' 1  RAM  lU 
"  HUK.SHnF'-SHOP 


MO  2 


JUN  05; 


KAi.f:  '"a 


0001 


o(Fo:’ 

0003 

0004 

0<'05 

0006 

00  OR 
'.'009 
0010 
OOl  1 
0012 

001  3 
0014 
2015 
0016 
<;■'  0 1 7 
0019 
0020 
■.'021 
0022 
0023 


SU&Fv'UU  1 1  Nf ;  T AKI..  ( FRUU » LROW » ARF AL  •  RF  LOU  t  UF •  acE  ,  SI  A1  US  ) 


('♦*  SUHKOUTINF  TAKE-  IS  UBEIi  TO  RFHOME  AH  E-NIK'Y  IH  THE-  LISE.  F' 
V.t*  MACANCY  IS  THEN  DFSIGNATEH  AS  FIRST  AMAILAHLF.  EMF'IY  SF'ACt. .  »• 
Ct*  STATUS  IS  A  FL..AG»  UHEN  THERE  ARE  NO  JOBS  IH  THE  LIST  IF  IS  »  = 
Cic*  SET  TO  ■0*.  OTHERUIBE  IT  IS  SET  TO  'I*. 


C*** *****!•:»♦***♦♦)((»*♦»»* *»******i|:»*** SEC*** *♦)((* **♦**»****♦*** ***K(*iF  I'***  FI 
IMPLICIT  INTEGER(D-Z) 

REAL  EMENT.FLOW.RFLOU 

COMMON  EVENT ( 1000) ,FLOU( 1000) »JOBSIZ( 1000) » REMAIN ( 1000)  , 

♦  niRECTE 1000) »UORK< 1000) »J0H(3) 

STATUS  =  1 

IF(FROU.EQ.O)  GO  TO  15 

C*****  TRANSFER  INFORMATION  ON  ENTRY  t*******t*****ri^t****ttMtt^f** 
JOH(l)  =  jnBSIZ(FROU) 

AREAL  =  EVENT (FROU) 

RFLOU  =  FLOW (FROU) 

J0B(2)  =  REMAIN (FROU) 

J0E!(3)  =  UORK(FROW) 

C******  UPDATE  POINTERS 
PNT  =  DIRECT (FROU) 

DIRECT (FROU)  ^  SPACE 
SPACE  =  FROU 
FROU  PNT 

iF(FRnu.F.;a.o)  go  ro  is 
RETURN 

15  STATUS  0 
LROW  =  0 
RETURN 
END 


I  LiKlh'AN  lU 
SHOl-tSHOf-SHUf 


VO?.  1 


F  RI  1?-JUN-  81  0‘>5  46 


r  H 1 1 1 '■j '  I ! 


000  I 


0(  U;.' 

0  003 
O'. '04 

O’H'O 
' '  j  0 

.  0  0  o 
00.1  0 
Oi.'  1 

0(i  1 

'014 


0016 

0017 

0018 


iU.IRK'LH  1 1  I NF  NFU  JOl:  ( F'N  I  »  WOF  .  UQI..  t  NUQF 

CL  OCK»NOJOl!»  lULF. 


J  N  U)  m  , »  F.  M  f ■  T  Y  >  j  f  j  h  10  h,  >  f  I R  U  !■ 
IlJl  TM»  I  IRtTOTIIH  ' 


[  %i^ttttttttt**t*t**1lit***t***t**-***t**t'ill.****tl^'ll/-tttill.***tt******^**1t  *  ^  • 

(of:*  SUBROUIINF:  gives  WORKER  A  NEW  JOR  FROM  THF:  WORKARI.  F  (oUE  UK.  <' * 

C**  VARIARLES  ARE  AS  EiEFINED  IN  THE  HAIN  F'ROGRAM . 

r  ************)♦;******!((********)♦:****♦**************************  FFtlFt**** 
IMF'LICIT  INTEGER(  A--Z) 

REAL.  EVENT  »  T  IMF  .  CLOCK  .  I  ULTM  »  HRUK  .  FLOW  ,  RFI.  OM 

COMMON  EVEN)  ( 1000) ,FL0W(1 000) » JOBSIZ( 1000; . RF  MAIN( 1000 ;  . 

%  b  I RF  C.T  ( 1000  )  »  WORK  (  1 000  )  .  JOB  (  3  ) 

IF  (NOJOB.EO.  1  )  RFUJRN 

CAL  L  T  1 HLF.  (  SUM .  CLOCK  »  1  » F'NT  » 1 DLTM  f  I  TR  »  TOT  1 UL  ) 

IBLE  lEiLF-l 

CALL  TAKECWUF.WOl.,  I  IMF. »  RF  L  OW » EMPT  Y  »  ST  A  T  US  ) 

I F ( S I  A (  US . EV . 0 )  NO JOB^l 
JOBWK  =  JOBWK-1 
HRWK  FIRWK-JOB(l) 

IF  (  J0B(  .3)  .NE.-  2)G0  TO  20 

C*****************************  *.*********************('**  ********'1:1  ****** 

C**  JOB  HAS  AIRFAIiY  BEEN  IN-PRDCESS  BEF(iF:;F  *• 

f.  **********  Ft*******************  *;»:*♦**************'♦;'♦:******'****♦♦****'•**♦ 

DUMMY  =  J(:)B(?)/EVENT(PNT ) 

TIME  =  DUMMY-I  CLOCK 
J0B(2)  0 


0019  10  J0B(3)  PNT 

0020  REMAIN  (PNT)  EMPTY 

00?  1  CAL  L  PUT  (  NWQF  .  NWQI.. » 2 »  T I  ME  » RF  LOW » EMPTY  ) 


Mif>)KAN  IV» 
^.Mni'.sunf  HOF 


'  'O''  I  53UE:FcOU  1  1 NF  1  1 DLF  (  SUM  .  CLOCK  » f  L.AGl » f 'N  1  ,  1 IH  1  M  »  1  I  F-  .  1  U  I  I  Ml  ; 

€**  SUMF<;OllTINF  DLTERMINF.S  AMC»IJNT  OF  UURKF  FV  I.i;il_F[  TIMF. . 

uoo::'  IMF-'LICIl  INTFiBER  (M-Z) 

U00.i  REAL  IDL  FM»  EVENT  LI  OTIDL.FLOI.I 

0004  COMMON  EVENT(IOOO)  »F  lOW(lOOO)  ,  JOMS I  7  ( 1 000  )  .REMAIN'.  1000)  , 

*  MIRF:CT(  1000)  .U0RK(  lOOO)  .  J0B(3) 

OOOS  II.I  MENS  ION  IFLAG(  100)  .MTIMEdOO) 

OOOA  IFCSLIM.GT.  1  IR)  ITR  ^  BUM 

0008  S  IF  (FLABl .EO, 1 )  GO  TO  20 

*  *  *  i  F  *  F  •  » 

ri!;F:  WORKER  STARTS  IIiLE  PERIOD.  rt 


0010 

MO  10  1=1. ITR 

0011 

IFdFLAGd  )  .EO.O)  GO  TO  15 

00  i  .3  1  C' 

CONTINUE 

0014  IS 

IFLAGd)  =  1 

00  IS 

MTIMFd)  =  CLOCK 

0016 

WORK(PNT)  =  I 

'■■'017 

RE  TURN 

(  ♦*  WORKER  END!;  TMLE  F-ERIOM  ♦. 


0010 

'.'0 

I  =  WORK (ENT) 

'..>01'? 

IML  IM  =  IMI  IMiCLOCK-MTIMEd  ) 

0  <  ■’0 

TO  liru  =  ( OTIDI  +C:LOCK-}iTIMF:< 

0021. 

IFLAGd)  =  0 

002;;: 

RETURN 

0023 

END 
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I  UFvlKAN  U» 

SHni',sMnF'r.sni:iF' 


^.*02 . 2  1 


rRi  i2-jUN-(-:i  : 


1 


I 


1)01 '2 
t '  I )  1 1 . 
(1 1 )  ( )  4 

1  ITm  i'-, 

p  ;  ,i )  I , 
( '  0  ( '  ^ 
.;>i  11)0 
I  ■)  n  (I  V 
(  K'l  1  2) 
('(■.1 1 
■  id  ]  2 
001  A 
('01  S 
oOl  A 
< '  ij  1  7 


I  M'-l 


I  inf;  RF.SOR  1  (F'NI  tRNI  1  » F‘N  12  .  L  MF '  i 'i  »NU((t  ,NUQI,»  1  [Ml  i 

(;*!*;  BURFllDUlIHE  TAKES  TFIE  EN1F>Y  A1  ROW  ‘PNT:'*  .  lHANGLS  IMF 

C*t  EOENF  TIME  ANH  TFIEN  INSERIS  IT  HACK  DiMU  (FIT  LlBI. 

implicit  INTEOER  (A- 2.) 

R  F-  A I .  Ff  0  E  N  ]■  f  1  1 M  E  .  F  F.  0  W  *  R  F  L  0  W 

COMMON  EUENT  (10001  ,  FLOW  (  1000)  »  Jnl!- ;  1 Z  (lOOO  )  .REMAIN'  100"  ■  , 
*  HIRF  CT  <  1000)  .  WORK(  lOOO)  ,  JOuC/.  - 

JOHd)  -  J0HSI/(PNT2) 

J(JH(2)  --  RFMAINFPNi:.’) 

JUH(7. )  UI0RK(PNT2) 

RFL.Ol'l  =  FL0W(PNT2) 

HTRECKPNI  1  )  =  DIRECT  <F-NT21 
IiIRFCr(PNT2)  =  EMPIY 
EMPTY  =  PNT2 

IF(PNT2.EU.NWQI.)  NWOl.  n.  rnh 

CALL  PUT  <  NUQF . NUQI  . 2 . T I  ME . RF  LOU »  EMPT  Y ) 

RFMAIN(PNT)  =  PNT2 

RETURN 

END 
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r  UR  IRAN  I'v' 
SHni',UHnR=:SHOP 


UO?  .  1 


2-JttN-ni  :  *  ■: 


SUPKOUTINF  OIIIF'UK  JORUK.HRUK.  JOPNUK.URNUh  *  Mini  .Uf  F  t  , -  Hn. 

*  Ii:iLlM»AVF  LOW) 

(■******:t:*!(t**i**:*it**)t:!|c**)t:*!F:*)t:**H()((**)t:*****)ti**4:ti*t*l;F'^:*»:**'t;^f*  ♦♦»♦♦♦!  t  ‘  ■ 
r**  StJFfROUTINF:  OUTF’UTS  THF!  STATE  OF  I HF.  SYSlEfl  A  I  IFIF  t  NIi  Hi  I  Hf  « 
C**  UEF-K,  UARIAPLES  ARE  AS  DEF  INf^H  IN  THE  MAIN  RROURhM.  • 


000? 

IMPLICIT  INTEGER(A--Z) 

oOOT 

rf.:al  event  .  clock  » i  dltm  »  hruk  >  hrnwk  ,  noNi . »  uhonf 

•  Hl-i 

OOO) 

REAI..*B  AVFLOW 

'■'OOS 

WDONE  ^  dONF/lO.O 

'■■ooo 

IULTM  IDLTM/IO.O 

• ' '  0 

HU  =  HRUK /1. 0.0 

0008 

HNU  =  HRNUK/10.0 

(‘008 

URnE(6. 10)  WEEK 

0010 

10 

FnRMAT(10(/)»15X» 'RESULTS  FOR  WEEK' ,14//) 

0'01  1 

WRITE (6, 15) 

OOl? 

15 

F  ORMAT  (  5X  ,  '  PACKl  .00  '  ,  1  OX ,  '  NO .  OF  JOBS  NO  . 

OF 

001  ,< 

WRITE (6, 20) 

('014 

20 

F  ORMAT  <5X,  '=:  =  =  =  =:^=r'  ,  lOX,  11  (  )  ,5X,20(  '  =  '  )  ) 

001  s 

URI TE ( 6 , 25 ) JOBWK , HU , JODNUK , HNU 

0016 

25 

FORMAT ( 5X , ' UORKARLE ' , 1 18 , F19 . 1 /5X , ' NONUORKAPLE  ' 

00  1  :■ 

WRITE <6, 35)  IULTM 

('OIF,; 

35 

FORMA!  (5X, 'UORKFRB  WERE.  IDLE  ',F6.1.'  HOURS' 

/  ) 

00  1,9 

URI IE (6, SO) WDONE 

30 

FORMA!  (5X, 'WORK  COMPLETED  IHIS  WEEK  lOTALLF  !! 

'  .1 

OO;:'  1 

URI TEC  6, 36)  AVFLOW 

( '  0  ? ,? 

36 

F  ORMAT ( 5X , ' AVERAGE  FLOW  TIME  ' , F  6 . 1 , '  DAYS ' / 

) 

0023 

URI TEC  6, 40)  SUM 

0024 

40 

FORMAT C 5X, 'NUMDER  OF  WORKERS  IN  SHOP  IS  ',14/) 

002S 

RETURN 

0026 

END 
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I  Hi:!  KAN  !'>' 

.|iK'  .  i.Hnt-H.-'-uifIN 


fKi  tx  JUN-tn  osm  :''! 


KAN'. 


r  '  Nt.INK'Ol.n  IN!  f  |NAI.-(  Jt.UMt'.K'MNDIv,  101  1  HI.  f  ^  >  I'l'.  1  I  nil.Mif  |  inj) 

I  I  I  T  t  *  t  *  1 1-  *  *  *  ♦  t  t  *  *  4  K  ♦  "t:  t  :♦  :*  *'  *  *  i:  1 1 1 1 *  i.  ♦:  1'  t  t  *  *  (  *  ♦  *  1 1  I  ♦  M  ♦  *  «  '  ’  <  !  > 

i  N**  suHuciuriN4  oinpuis  inr  biaik  oi  ihi  SYBun  a;  tof  lnii  of  fit  «• 

[  C%%  SlhULATIGN.  SE.F.  MAIN  PFv'OGKAM  FOR  IifF  I N I  (  I  UN  OF'  OAR  1 AHL  K ,  t‘ 

!  {  if  ^  *  *  *  ^  *  *  ■ 

'  "  'A  RF;AI.*8  AOF!  0W»SIIF'L0U 

"  UiFvITE:  (6»  10)  NUL-FTK 

i'n,,5  10  F  ORMATC  10(/)  ,  lOX.  'F  INAI  f^FSI.ILTO  FOR',r.^.  Ul.FKS'//) 

'  ''NuV,  U)Rrit:(A»)5)  .JCOMF'.FOIOUR 

'  iFi  FORMAI  (  1 10.  '  JOl'F.  OFRF  t  Oht 'L  F:  I  f  Fi  F  0  I  Al  L  T  N'F  ,  F  /  .  I  . 

*  '  FIOLIRB  Oi  WORK') 

".‘V-  UR1TF(A,16)  AOF'LOO.'FDF'IOW 

■  ].  FORMAF'/'  AOFRAOF  F  F  OW  (IMF  IJA',.  -F/.l.  -  MArB  WM!,  A'/ 

t  '  SIAN'iARO  nF'v'lAirON  OF  '.17.1) 

NA,.-..'  UFCI  1  F  (  6.20)  101  IFH, 

-'OH  .■'  FOKMAIF/'  UUKRfOvS  WRRF-  ri'l.fc.  F-OF-'  '  F7.1.'  I  iOl  H.".,  .  ) 

("  '1  BTAF  =:  RFIOIIR./FRFI(lltF---FTO(  IHI  FtlOO.O 

0‘'r:>  URIFF.  (6»?b)  SliM 

FORMAK/'  FiFUiC  01  •!..  F^  A 1  F.li  A‘1  '  .  FO  .  1  ,  ■  n  '  /  / .  /  ' 

H01A  RFTORN 

.  f.iK  NNri 


